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Hanoil - programme de demonstration de la recursivite pour Pinitiation 
au C 5 de GS Infos 21 : le celebre probleme des tours de hanoi. 

Version recursive. 

Philippe Manet 12 Avril 1992 



#include <stdio.h> 
#pragma optimize -1 



void hanoi ( short n, char a, char b, char c ) 



* Deplacement de N disques de A a C avec B comme intermediaire. 
7 

if ( n > ) { 

hanoi ( n - 1, a, c, b ); 
printf ( "Deplacement d'un disque de V%c\" vers \"%c\"\n", a, c ); 
hanoi ( n - 1, b, a, c ); 

} 

} f hanoi () 1 

void main ( void ) 

{ 

char buf[4]; 
short n; 

r 

* Scant est bugge : on lit done une chaine de caracteres que Ton decode 

* ensuite. 
7 

printf ( "Nombre de disques ? "); 
gets ( buf ); 
n = atoi ( buf ); 

hanoi ( n, 'A', 'B*. 'C ); 

} r main () 7 



^ 



o 



n* 

** Hanoi2 - programme de demonstration de la recursivite pour I'initiation 

au C 5 de GS Infos 21 : le celebre probleme des tours de hanoi. 

** 

** Version non recursive. 

Philippe Manet 12 Avril 1992 

"/ 
#include <stdio.h> 
#pragma optimize -1 

r 

* Pile utilisee pendant les deplacements des disques. 

7 



struct { 
short count; 
struct { 
short n; 
char a; 
char b; 
char c; 
} entry[100]; 
} stack; 



void push ( short n, char a, char b, char c ) 

{ 

short i; 

i = stack.count++; 
stack.entry[i].n = n; 
stack.entry[i].a = a; 
stack.entry[i].b = b; 
stack.entry[i].c = c; 

} r push () V 

void pop ( short *n, char *a, char *b, char *c ) 

{ 

short i; 

i = -stack.count; 
*n = stack.entry[i].n; 
*a = stack.entry[i].a; 
*b = stack.entry[i].b; 
*c = stack. entry[i].c; 
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} r pop o v 



void swap ( char *x, char *y ) 



char t; 



t = *x; 
*x = *y; 
V = t; 

} /* swap () 7 



^ 






void hanoi ( short n, char a, char b, char c ) 



r 

* Deplacement de N disques de A a C avec B comme intermediaire. 
7 

stack.count = 0; 

do{ 

if ( stack.count != ) { 

pop ( &n, &a, &b, &c ); 

printf ( "Deplacement d'un disque de \"%c\" vers \"%c\"\n", a, c 
n--; 
swap ( &a, &b ); 



while ( n > ) { 

push ( n, a, b, c ); 

n--; 

swap ( &c, &b ); 

} 
} while ( stack.count > ); 

} /* hanoi () */ 
void main ( void ) 
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char buf[4]; 
short n; 



* Scant est bugge : on lit done une chaine de caracteres que Ton decode 

* ensuite. 
V 

printf ( "Nombre de disques ? "); 
gets ( but ); 
n = atoi ( but ); 

hanoi ( n, 'A', 'B\ V ); 

/* main () 7 



w 
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** Hanoi3 - programme de demonstration de la recursivite pour I'initiation 

au C 5 de GS Infos 21 : le celebre probleme des tours de hanoi. 

** 

** Version graphique. 

** 

Philippe Manet 12 Avril 1992 






/ 

#include <stdio.h> 
#include <orca.h> 

#include <Types.h> 
#include <QuickDraw.h> 

#pragma optimize -1 

#define MAX_DISKS 14 

#define BASE 180 f base des tours 7 

#define ITOWER 100 

#define TOWER1 60 /* position X des tours 7 

#define TOWER2 ( TOWER1 + ITOWER ) 

#define TOWER3 ( TOWER2 + ITOWER ) 

#define HDISK 10 /* hauteur d'un disque 7 

#define LDISK 10 /* moitie longueur du plus petit disque */ 

#define IDISK 2 /* moitie diff longueur entre 2 disques */ 

Rect pos_disk[3][MAX_DISKS]; 
short num_disk[3][MAX_DISKS]; 
short height[3]; 
short num_disks; 



void draw_disk ( short tower, short disk, short flag ) 

{ 

short x; 

if ( flag ) { 

SetSolidPenPat ( disk ); 
PaintRect ( &pos_disk[tower][disk] ); 

} else { 

EraseRect ( &pos_disk[tower][disk] ); 

f 

* Redessine la portion de tour effacee. 
7 
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^ 






if ( pos_disk[tower][disk].v1 >= BASE - ( num_disks + 1 ) * HDISK ) { 

SetSolidPenPat ( 15); 

SetPenSize ( 4, 1 ); 

x = tower == ? TOWER1 - 2 : tower == 1 ? TOWER2 - 2 : TOWER3 - 2; 

MoveTo ( x, pos_disk[tower][disk].v1 ); 

LineTo ( x, pos_disk[tower][disk].v2 - 1 ); 
SetPenSize ( 1, 1 ); 



} 
} /* draw_disk () 7 

void pause ( void ) 

o { 

short w; 

for ( w m 0; w < 22222; w++ ); 
} /* pause () V 

void move_disk ( char from, char to ) 

{ 

short tower, disk, dest_x, dest_y, movej; 

r 

* Deplacement graphique d'un disque. 
7 



tower = from - 'A'; 
disk = num_disk[tower][height[tower]--]; 

r 

* Deplacement vers le haut sur la tour de depart. 
7 



draw_disk ( tower, disk, false ); 

pos_disk[tower][disk].v1 -= HDISK; 

pos_disk[tower][disk].v2 -= HDISK; 
draw_disk ( tower, disk, true ); 
pause (); 

} while ( pos_disk[tower][disk].v1 >= BASE - ( num_disks + 3 ) * HDISK 
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^ 



r 

* Deplacement horizontal. 
V 

dest_x = ( to - from ) * ITOWER + pos_disk[tower][disk].h1; 
movej ■ LDISK * ( to > from ? 1 : -1 ); 

do{ 

draw_disk ( tower, disk, false ); 

pos_disk[tower][disk].h1 += move_i; 

pos_disk[tower][disk].h2 += move_i; 
draw_disk ( tower, disk, true ); 
pause (); 

} while ( pos_disk[tower][disk].h1 != dest_x ); 

f 

* Deplacement vers le bas sur la tour d'arrivee. 
7 

tower = to - 'A'; 

num_disk[tower][++height[tower]] = disk; 

pos_disk[tower][disk] = pos_disk[from - 'A'][disk]; 
dest_y = BASE - ( height[tower] + 1 ) * HDISK; 

do{ 

draw_disk ( tower, disk, false ); 

pos_disk[tower][disk].v1 += HDISK; 

pos_disk[tower][disk].v2 += HDISK; 
draw_disk ( tower, disk, true ); 
pause (); 

} while ( pos_disk[tower][disk].v1 < dest_y ); 

} f move_disk () 7 

void hanoi ( short n, char a, char b, char c ) 
{ 

r 

* Deplacement de N disques de A a C avec B comme intermediaire. 
7 

if ( n > ) { 

hanoi ( n - 1, a, c, b ); 
move_disk ( a, c ); 
hanoi ( n - 1, b, a, c ); 
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} 

} I* hanoi () •/ 

void main ( void ) 

{ 

char buf[4]; 
short d; 



* Scant est bugge : on lit done une chaine de caracteres que I'on decode 

* ensuite. 

7 

printf ( "Nombre de disques ? "); 
gets ( but ); 

num_disks = atoi ( but ); 
if ( num_disks > MAX_DISKS ) 
exit (); 

r 

* Initialisation du mode graphique et dessin des tours et de la base. 

V 

startgraph ( 320 ); 

SetPenMode ( modeCopy ); 
SetForeColor ( 15 ); 

SetPenSize ( 1, 10 ); 
MoveTo ( 0, BASE ); 
LineTo ( 320, BASE ); 



W 



SetPenSize ( 4, 1 ); 

MoveTo ( TOWER1 - 2, BASE 

LineTo ( TOWER1 - 2, BASE - 

MoveTo ( TOWER2 - 2, BASE 

LineTo ( TOWER2 - 2, BASE - 

MoveTo ( TOWER3 - 2, BASE 

LineTo ( TOWER3 - 2, BASE - ( num_disks + 1 ) * HDISK ) 



num_disks + 1 ) * HDISK ) 
num_disks + 1 ) * HDISK ) 



J 



r 

* Calcul des rectangles des disques et dessin initial. 
7 

for ( d = 0; d < num_disks; d++ ) { 

pos_disk[0][d].h1 = TOWER1 - ( LDISK + IDISK * ( num_disks - 1 - d ) ); 
pos_disk[0][d].h2 = TOWER1 + LDISK + IDISK * ( num_disks - 1 - d ); 
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Vj 



pos_disk[0][d].v1 = BASE - HDISK * ( d + 1 
pos_disk[0][d].v2 = BASE - HDISK * d; 
num_disk[0][d] = d; 
num_disk[1][d] = num_disk[2][d] = -1; 



} 



height[0] = num_disks - 1; 
height[1] = height[2] = -1; 

SetPenSize (1,1 ); 
SetSolidBackPat ( ); 

for ( d = 0; d < num_disks; d++ ) 
draw_disk ( 0, d, true ); 

hanoi ( num_disks, 'A', 'B\ 'C ); 

pause (); 

endgraph (); 

} /* main () 7 
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Programmation n°2 : Structure de donnees "queue' 






- 






Dans le precedent numero de GS Infos, nous avons aborde dans la derniere 
partie de 1' article sur la programmation de la calculatrice, la structure 
de donnees "pile". Dans cet article, nous allons traiter d'une autre 
structure de donnees, qui est en bien des points similaire. En fait, elle 
est meme le pendant de la "pile" : il s'agit de la "queue". Dans la 
litterature, vous trouverez plus souvent employe le terme de "file" qui est 
une abreviation de "file d'attente", sans doute pour encore mieux montrer 
l'analogie entre les 2 structures de donnees. Personnellement, je prefere 
le terme de "queue" que je vais done employer tout au long de cet article. 



Concepts de Queue 



La structure de donnees "queue" est la realisation informatique du concept 
de queue tel qu'on le connait dans la vie courante, par exemple lorsque 
vous faites la queue devant une salle de cinema. 

D'un point de vue informatique, on considere la queue comme etant une liste, 
telle que ce concept a ete introduit dans le precedent article, et qui 
sera detaille dans le prochain numero de GS Infos . 

La propriete fondamentale des queues est que tous les elements sont inseres 
a une extremite et retires de 1' autre. Le cote ou l'on insere les elements 
est appele la "queue" (e'est ce qui a donne son nom a la structure de donnees), 
tandis que celui duquel on retire les elements est appele la "tete". Les termes 
anglais correspondants sont "head" ou "front" pour la tete et "tail" ou "rear" 
pour la queue. 

L' expression employee pour designer le mouvement des elements dans la queue 

est "premier arrive, premier sorti", ce qui correspond bien a la notion de 

file d'attente. Le terme anglais correspondant est "first in, first out" 
que l'on abrege par "FIFO". 

Si vous relisez 1' article sur les piles du precedent numero, vous constaterez 
que ces 2 structures sont quasiment identiques; en fait, la seule difference 
est que dans le cas d'une pile, les insertions et les suppressions se font du 
meme cote, tandis que, pour une queue, les suppressions se font du cote oppose 
aux insertions. 

Par consequent les operations sont identiques entre les 2 structures, seuls 
leurs effets changent. Done, comme pour les piles, il n'y a que 5 operations 
possibles pour les queues : 

• Initialisation d'une queue; 

• Test si la queue est vide; 

• Ajout d'un element a la fin de la queue; la litterature, voulant conserver 
la similitude avec les piles, utilise le terme d'"enfiler", que je trouve 
personnellement assez malheureux; n'ayant pas de meilleur terme a vous proposer, 
je me contenterai du mot anglais "enqueue"; 

• Suppression d'un element en tete de la queue; le terme employe est "defiler", 
ce qui est tout aussi mauvais que "enfiler"; le mot anglais "dequeue" est 
beaucoup plus precis. 

• Acces au premier element de la queue sans le retirer. 
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Comme pour les piles, on peut aussi envisager une sixieme operation pour 
determiner si une queue est pleine. Je vous rappelle que cette primitive 
est en fait liee a une contrainte d' implementation et ne fait pas partie de 
la definition du type abstrait "queue". En 1' occurence, le remplissage 
d'une queue (et aussi d'une pile) est en general assez problematique, 
puisqu'il peut rendre impossible un traitement. 

La queue, comme la pile d'ailleurs, est une structure de donnees temporaire, 
c'est a dire que tous les elements qui y sont inseres sont destines a etre 
supprimes. En fait, l'etat stable d'une queue se produit lorsqu'elle est 
vide; dans le cas contraire, cela signifie qu'il y a encore des elements a 
traiter. En general, les operations d' insertion et de suppression sont 
asynchrones (c'est a dire independantes) ; le programme doit done faire en 
sorte d'etre capable d' absorber les elements (c'est a dire les supprimer) 
suffisamment vite par rapport au rythme de leur insertion, afin de ne pas 
se laisser Meborder' . Dans certains cas (par exemple dans des programmes 
recursifs, voir 1' article d' initiation au C de ce numero) , le programme 
doit effectuer un traitement des elements residuels, une fois que tous les 
elements a traiter ont ete mis dans la queue et qu'une partie d'entre eux 
a ete traitee lors du processus qui les a inseres. 

Utilisations d'une queue 



~- 



<J 



Comme la pile, la queue est une des structures de base que l'on utilise 
tres souvent. 

L' emploi le plus typique de la queue est lorsqu'un programme ne peut traiter 
les requetes qui lui sont soumises aussi vite qu'elles arrivent : on a alors 
un mecanisme qui recoit ces requetes, les met dans la queue, tandis que le 
processus principal les prend dans l'ordre dans lequel elles sont arrivees 
afin de les traiter tour a tour, ce qui montre bien l'asynchronisme des 
operations indique plus haut. Vous en avez un exemple dans votre GS, avec 
la queue des evenements geree par la boite a outils. Ces evenements, 
correspondant par exemple au mouvement de la souris, l'appui sur le bout on 
ou encore 1' utilisation du clavier, arrivent en general plus rapidement que 
1' application ne peut les traiter. La boite a outils les met done en attente 
et les delivre dans l'ordre de leur survenance lorsque 1' application les 
demande. On est bien ici dans le cas decrit ci-dessus, car on considere que 
l'etat stable de la queue des evenements est celui ou elle est vide, indiquant 
que le programme est en attente d'une action de l'utilisateur. 

Une autre utilisation des queues est effectuee dans les systemes d' exploitation 

multitaches. Les taches en attente du CPU sont mises dans une queue; lorsque 

la tciche precedente a termine son travail, ou effectue une action n'ayant pas 

besoin du CPU (comme par exemple une entree/ sortie avec un controleur intelligent 

comme la RAMfast sur le GS) , ou encore lorsque le systeme a decide qu'elle 

devait laisser la place au suivant (auquel cas elle est remise a la fin de 

la queue) , la premiere tciche est alors retiree de la queue et mise en 

execution. Dans la pratique, on assigne une priorite a chacune des taches; 

on peut alors envisager d' avoir une queue pour chacune des priorites possibles, 

le systeme ne mettant en execution une tache d'une priorite donnee que 

lorsque les queues correspondant aux priorites superieures sont vides; on 

peut aussi envisager de n' avoir qu'une seule queue et d'inserer les taches 

au milieu en fonction de leur priorite. Cette fonction du systeme est 

designe en anglais par le terme de "scheduling". Dans ce cas particulier, 

la queue du CPU n'est jamais vide, ce qui est assez logique, car un 
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ordinateur fait tou jours quelque chose; les systemes d' exploitation prevoient 
en general une tache speciale qui a la priorite la plus faible et qui est 
assez souvent une boucle infinie (en basic, cela serait 10 GOTO 10) , cette 
tache n'etant executee que lorsque le CPU n'a rien a faire d' autre. 

C'est cette utilisation des queues que j'ai choisi de vous montrer en exemple; 

vous trouverez sur ce GS Infos un programme appele "Sched" (dont le source "Sched.cc' 

a ete ecrit — comme d' habitude — avec ORCA/C) , effectuant une simulation d'un 

systeme d' exploitation multitaches, multi-utilisateurs (jusqu'a 4 dans la 

version compilee, mais c'est parametrable) , dans lequel chaque tache a la meme 

priorite. L' interface utilisateur est loin d'etre sophistiquee, mais, a mon avis, 

le source est bien plus interessant que le programme final, pour comprendre 

le fonctionnement d'une queue et d'un systeme d' exploitation multitaches 

(c'est dans ce but la que je l'ai ecrit) . Ce programme fait appel a une 

librairie "Queue. lib" (dont le source est "Queue. cc") qui a ete concue de 

facon generique, et que vous pourrez done utiliser dans vos propres 

programmes. Notez que la suite de 1' article presentant 1' implementation de 

cette structure de donnees contient des extraits du source de cette librairie. 

Les queues, comme les piles, sont aussi employees dans les traitements differes, 
et notamment lorsqu'on souhaite preserver l'ordre des elements traites 
(avec une pile, les elements sont traites dans l'ordre inverse de leur 
rencontre); c'est par exemple le cas pour le parcours d'un graphe (nous 
aurons sans doute l'occasion d'en reparler) . La encore, tous les elements 
de la queue sont traites, et done supprimes a un moment donne; le traitement 
se termine lorsque la queue devient vide. 

Je pense que lorsque nous aborderons des themes plus complexes dans les 
prochains numeros, nous reverrons souvent soit les piles, soit les queues, 
employees comme structures annexes dans 1' implementation des algorithmes . 
Ces futures utilisations des queues correspondent neanmoins le plus 
frequemment aux cas cites ci-dessus, qui sont vraiment tres typiques . 



Representation d'une queue 



<J 



Comme je vous l'ai explique dans le precedent GS Infos, une structure de 
donnees peut §tre implementee de differentes manieres. II est cependant 
clair que l'on va avoir besoin de maintenir un pointeur (dans le sens le 
plus general du terme) sur la tete de la queue et un autre sur sa fin, le 
premier permettant d'acceder a 1' element a supprimer, tandis que le second 
indiquera la position du nouvel element a ajouter. 

On pourrait utiliser un tableau, comme nous l'avons fait pour representer 
les piles, et les 2 pointeurs decrits precedemment correspondraient a 2 
indices de ce tableau, indiquant les positions d'ajout et de suppression. 

Le seul probleme est que la queue va avoir tendance a se x deplacer' dans 
le tableau au fur et a mesure des ajouts et des suppressions, rendant le 
debut du tableau inutilise, tandis qu'on finira par atteindre sa fin, 
interdisant l'ajout de nouveaux elements, et provoquant done artificiellement 
une condition de queue pleine. 

On peut sophistiquer ce principe, en rendant le tableau "circulaire", c'est 
a dire que lorsque l'indice de 1' element a ajouter atteint la limite 
superieure du tableau, on lui fait prendre la valeur 1, puis on le fait 
progresser normalement jusqu'a ce qu'il rejoigne l'indice de 1' element a 

programmation 2 page 3 






Vw/ 



^ 






supprimer, rendant ainsi la queue pleine; la taille de la queue est alors 
limitee par celle du tableau. Dans une telle implementation, le tableau 
forme done bien un anneau *virtuel', et il n'a done plus ni de debut, ni de 
fin. 

Le seul veritable inconvenient de cette solution est qu'elle limite 
arbitrairement la taille de la queue, ce qui peut poser un probleme lorsque 
le rythme de mise en queue des elements est nettement plus rapide que leur 
traitement (par principe, tous les elements inseres dans une queue seront 
retires a un moment ou a un autre) , ce qui peut conduire au remplissage de 
la queue, et a la perte d' informations vitales. 

Contrairement aux piles, on ne peut pas envisager la solution d' extension 
du tableau, telle que nous l'avons implementee dans le precedent GS Infos, 
car si l'indice d' insertion a deja fait le tour (e'est a dire qu'il a rejoint 
l'indice de suppression et que celui-ci n'est pas 1), ce qui est le cas le 
plus probable, il faudrait reorganiser completement la queue dans le tableau, 
pour pouvoir benef icier de l'espace supplementaire. Si vous n'etes pas surs 
d' avoir bien compris cette phrase, faites un dessin, cela deviendra tout de 
suite plus clair. 

Pour nous affranchir de ces contraintes, nous allons etudier dans la suite 
de cet article une implementation utilisant une liste lineaire chainee 
simple. Nous verrons en detail dans le prochain article ce qu'est une telle 
structure de donnees. Pour 1' instant, contentons-nous de savoir qu'il s'agit 
d'une structure chainee, e'est a dire que chaque occurence de la liste est 
representee par un "nceud", et qu'un nceud pointe sur 1' element insere dans 
la queue ainsi que sur le noeud suivant. 



Une implementation de la structure de donnees queue 



Une structure C permettant de mettre en ceuvre la structure chainee decrite 
plus haut est alors : 

typedef struct node *node; 
typedef void *data_ptr; 



struct node { 




data_ptr data; 




node next; 




typedef struct { 




node head; 


/* 


node tail; 


/* 


} queue; 





tete de la queue */ 
queue de la queue */ 



Le type node definit un nceud tel qu'il a ete decrit ci-dessus, e'est a dire 
un pointeur sur 1' element a mettre dans la queue (ce pointeur etant 
generique comme dans 1' implementation de la pile du precedent numero) , 
ainsi qu'un pointeur vers le nceud suivant. 

La structure de donnees queue est alors representee par un pointeur sur le 
nceud de tete et un autre sur le nceud de queue, le pointeur sur le nceud 
suivant de la structure node assurant le chainage des elements de la queue. 
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L' initialisation de la structure queue se fait alors de la facon suivante : 

boolean init_queue ( queue *Q ) 

{ 

Q->head = Q->tail = NULL; 

return ( TRUE ) ; 
} 

Cette fonction est on ne peut plus simple; la queue etant encore vide, il 
suffit d' initialiser les pointeurs sur la tete et la queue a pour 
indiquer cet etat. 

Vous noterez que cette fonction (ainsi que toutes les autres d'ailleurs) 
accepte en parametre un pointeur sur une queue. Le principe de la librairie 
est que le programme l'utilisant n'a pas a connaitre le detail de cette 
structure; il doit la considerer comme opaque (a la limite elle pourrait 
avoir un type quelconque pour lui) . Le passage du parametre est necessaire 
car le programme d' application peut vouloir gerer plusieurs queues avec la 
librairie; celle-ci ne doit done pas fournir ses services en gerant une 
variable interne, et par consequent en imposant une restriction sur le 
nombre de queues utilisables. 



La fonction indiquant si une queue est vide ou non est aussi tres simple. 
Elle se contente de tester si la tete pointe sur quelque chose ou non et de 
retourner le resultat obtenu. 

boolean empty_queue ( queue *Q ) 
{ 

return ( Q->head == NULL ? TRUE : FALSE ) ; 

} 



L' insertion d'un element a la fin de la queue est assez simple; elle fait 
appel a des techniques assez classiques de manipulation de pointeurs, les 
commentaires decrivant les operations effectuees sur ces pointeurs, je ne 
les detaillerai pas plus : 

boolean enqueue ( queue *Q, data__ptr data ) 
{ 

node n; 

n = ( node ) malloc ( sizeof ( struct node ) ) ; 

if ( n == NULL ) 

return ( FALSE ) ; 

n->data = data; 
n->next = NULL; 

if ( Q->head == NULL ) 

Q->head = Q->tail = n; /* Queue vide : noeud est le premier et le 

dernier */ 
else { 

Q->tail->next = n; /* Chainage du nouveau noeud a la suite du dernier 

actuel */ 
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Q->tail = n; 



/* Le nouveau noeud devient le dernier */ 



return ( TRUE ) ; 



La suppression du premier element d'une queue est encore plus simple que 1' insertion; 
je vous laisse etudier les details dans la fonction suivante : 

boolean dequeue ( queue *Q, data_ptr *data ) 

{ 

node n; 

if ( ( n = Q->head ) == NULL ) 
return ( FALSE ) ; 

*data = n->data; 



W 



if ( Q->tail == Q->head ) 

Q->head = Q->tail = NULL; /* Queue ne contient qu'un element -> 

devient vide */ 
else 

Q->head = n->next; /* La tete de la queue devient le suivant du 

noeud retire */ 



free ( n ) ; 
return ( TRUE ) ; 



\^ 



La derniere operation definie par le type abstrait queue permet d'obtenir 
1' element en t§te sans le retirer. L'utilisation de cette operation est 
assez rare, c'est pourquoi je ne l'ai pas implementee dans la librairie 
citee plus haut. Voici tout de meme une fonction effectuant ce travail : 

node front ( queue *Q ) 

{ 

return ( Q->head == NULL ? NULL : Q->head->data ) ; 



Sur la disquette GS Infos 



Ces fonctions (sauf la derniere) ont ete integrees dans une librairie 
"Queue. lib" (dont le source est "Queue. cc") . Une demonstration de leur 
utilisation est realisee dans le programme "Sched" (source "Sched.cc") . 
Une description succinte de ce programme a ete donnee plus haut. Les 
commentaires au debut du source decrivent en detail les principes mis en 
ceuvre et le fonctionnement general du programme. Je ne peux que vous y 
renvoyer . 



\~S 



Dans le prochain numero de GS Infos, nous traiterons la structure de donnees 
"liste", dont les structures pile et queue sont des cas particuliers. 



programmation 2 
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/** 

** Queue. cc - Routines de manipulation d'une queue. 
** 

** 

** 

** 

** 

**/ 



Cette librairie est decrite dans 1' article "Programmation 2" 
de GS Infos numero 21 qu'elle accompagne. 



vl.O 



5 Avril 1992 



#pragma noroot 
#pragma optimize -1 

#include <Types.h> 

#pragma lint -1 

♦include <stdlib.h> 

♦include " Queue. h" 



h 



* init_queue () 
* 

* 
* 
* 
* 

*/ 



- Initialisation de la queue passee en parametre. 

Ceci consiste a initialiser les pointeurs de tete et 
de queue a NULL, puisque la queue est encore vide. 
On retourne TRUE si 1' operation s'est bien deroulee et 
FALSE dans le cas contraire. En fait, dans cette 
implementation, ce sera tou jours TRUE. 



boolean init_queue ( queue *Q ) 

{ 

Q->head = Q->tail = NULL; 
return ( TRUE ) ; 

} /* init queue () */ 



/' 



* empty_queue () - Renvoie TRUE si la queue est vide et FALSE autrement. 
*/ 

boolean empty_queue ( queue *Q ) 

{ 

return ( Q->head == NULL ? TRUE : FALSE ) ; 
} /* empty queue () */ 



vj 



/* 

* enqueue () - Ajoute un element a la queue, done necessairement a la fin. 

* Retourne TRUE si cela a ete possible et faux dans le cas 

* contraire, e'est a dire si on n'a pas pu allouer de memoire. 
*/ 

boolean enqueue ( queue *Q, data_ptr data ) 
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node n; 

n = ( node ) malloc ( sizeof ( struct node ) ) ; 

if ( n == NULL ) 

return ( FALSE > ; 

n->data = data; 
n->next = NULL; 

if ( Q->head == NULL ) 

/* 

* La queue ne contient aucun element. Le nouveau est done a la fois 

* le premier et le dernier. 
*/ 

Q->head = Q->tail = n; 

else { 

/* 

* Chainage du nouveau noeud a la suite du dernier actuel . 

* Le nouveau noeud devient le dernier. 
*/ 

Q->tail->next = n; 
Q->tail = n; 

} 

return ( TRUE ) ; 

} /* enqueue () */ 

/* 

* dequeue () - Suppression de 1' element de tete qui est retourne a 1' appelant 

* Retourne TRUE si cela a ete possible et faux dans le cas 

* contraire, e'est a dire que la queue est vide. 
*/ 

boolean dequeue ( queue *Q, data_ptr *data ) 

{ 

node n; 

if ( ( n = Q->head ) == NULL ) 
return ( FALSE ) ; 

*data = n->data; 

if ( Q->tail == Q->head ) 

/* 

* La queue ne contient que le seul element qui est retire. 

* Elle devient done vide. 



<y 



^ 
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*/ 

Q->head = Q->tail = NULL; 

else 

/* 
* La tete de la queue devient le suivant du noeud retire, 
*/ 

Q->head = n->next; 

free ( n ) ; 

return ( TRUE ) ; 

} /* dequeue () */ 






/** 

** Queue. h - Definitions de la librairie de manipulation de la structure 

** de donnees queue a inclure dans toute application utilisant 

** cette librairie. 

** 

** vl.O 5 Avril 1992 

** 

**/ 

/* 

* Definition des types noeud et queue. 
*/ 

typedef struct node *node; 
typedef void *data_ptr; 

struct node { 

data_ptr data; 

node next; 

}; 

typedef struct { 

node head; /* tete de la queue */ 

node tail; /* queue de la queue */ 
} queue; 

/* 

* Prototypes des fonctions de la librairie. 
*/ 

boolean init_queue ( queue * ) ; 
boolean empty_queue ( queue * ) ; 
boolean enqueue ( queue *, data_ptr ); 
boolean dequeue ( queue *, data_ptr * ); 



- 
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/** 

** Sched.cc - Simulation de 1 ' ordonnancement et de la soumission de travaux 

** dans un systeme d' exploitation multitaches. 

** 

** Le principe de la simulation est le suivant : 

** 

** - une seule tache (job) peut etre executee a la fois par le CPU. 

** - toutes les taches ont la meme priorite. 

** - une nouvelle tache est demarree a un instant aleatoire et a 

** une duree d' execution aleatoire. Ces taches sont lancees 

** par des utilisateurs fictifs connectes a des terminaux 

** (nombre aleatoire jusqu'a 4). 

** - le simulateur gere sa propre horloge. 

** - une tache est limitee a 20 unites de temps, au dela desquelles 

** elle doit ceder sa place a la tache suivante (on dit qu'elle 

** est preemptee) si elle n'a pas termine. Lorsque son tour 

** revient, elle reprend la ou elle en etait reste. 

** - un evenement est alors soit la soumission d'une nouvelle 

** tache, soit la fin d'une tache, soit sa preemption. 

** - l'objectif de la simulation est de mesurer le temps moyen 

** qu'une tache attend dans la queue d' execution. 

** 

** Ce programme constitue une demonstration de la structure de 

** donnees "queue" decrite dans 1' article "Programmation" 

** du numero 21 de GS Infos. 

** 

** vl.O 5 Avril 1992 

** 

**/ 

#pragma optimize -1 

#include <Types.h> 

#pragma lint -1 

♦include <stdio.h> 
♦include <stdlib.h> 
♦include <time.h> 
♦include <math.h> 

♦include "Queue. h" 

/* numero evenement fin tache */ 
/* numero evenement expiration temps CPU */ 
/* nb maximum de terminaux */ 
2 + MAX_TERMS /* nb maximum evenement s */ 

/* temps CPU maximal avant preemption */ 
/* temps d' execution moyen d'une tache */ 
/* temps moyen de soumission */ 

/* heure tres loin dans le futur */ 

/* nombre total de taches simulees */ 

short system_clock; /* horloge du simulateur */ 

short event_table[MAX_EVENTS]; /* table des evenements */ 
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♦define 


END_JOB 





♦define 


TIME_OUT 


1 


♦define 


MAX_TERMS 


4 


♦define 


MAX_EVENTS 


2 


♦define 


CPU_LIMIT 


20 


♦define 


MEAN_RUN 


15 


♦define 


MEAN_SUBMIT 


10 


♦define 


BIGJTIME 


30000 


♦define 


MAX JOBS 


100 



^> 



w 



typedef struct { 

short num_term; 

short start_time; 

short queue_time; 

short run_time; 
} job; 

job current_job; 

short num_terms; 

long total_queue_time; 
short num_jobs; 

boolean stop_simul; 

queue cpu_queue; 

unsigned char *keyboard = 
unsigned char *kbd_strobe 



/* numero du terminal */ 

/* heure de soumission de la tache */ 

/* temps d'attente dans la queue */ 

/* duree d' execution de la tache */ 



/* la tache en cours d' execution */ 

/* nombre de terminaux simules */ 

/* duree totale de toutes les taches dans la queue */ 
/* nombre de taches executees */ 

/* TRUE si interruption simulation */ 

/* queue des taches en attente du CPU */ 

(unsigned char *) OxEOCOOO; 
= (unsigned char *) OxEOCOlO; 



L/ 



/* 
* enqueue_job () - ajout d'une tache dans la queue du CPU. 
*/ 

boolean enqueue_job ( short num_term, short start_time, short queue_time, 

short run_time ) 

{ 

job *j; 

j = (job *) malloc ( sizeof ( job ) ); 

if ( j == NULL ) 

return ( FALSE ) ; 

j->num_term = num_term; 
j->start_time = start_time; 
j->queue_time = queue_time; 
j->run_time = run_time; 

if ( ! enqueue ( &cpu_queue, (data_ptr) j ) ) { 
free ( j ) ; 
return ( FALSE ) ; 

} 



return ( TRUE ) ; 
} /* enqueue job () */ 






/' 



* dequeue_job () - retrait d'une tache de la queue du CPU 
V 
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boolean dequeue_job ( short *num_term, short *start_time, short *queue_time, 

short *run_time ) 

{ 

job *j; 

if ( ! dequeue ( &cpu_queue, (data__ptr *) &j ) ) 
return ( FALSE ) ; 

*num_term = j->num_term; 
*start_time = j->start_time; 
*queue_time = j->queue_time; 
*run_time = j->run_time; 

free ( j ) ; 

return ( TRUE ) ; 

} /* dequeue_job () */ 

/* 

* distribute () - calcul d'une distribution logarithmique autour d'une valeur 

* moyenne de facon a donner au generateur de nombres aleatoires 

* un ensemble de valeurs equi-propable. 

* La formule utilisee est : moyenne * In (aleatoire) , ce qui 

* fait qu' environ les 2/3 des nombres sont inferieurs a la 

* moyenne . 

* Notez qu'on calcule le log d'un nombre entre et 1, et qu'il 

* est done < 0, e'est pourquoi on le multiplie par -moyenne. 
*/ 

short distribute ( short mean_time ) 

{ 

return ( (short) ( -mean_time * log ( (double) rand () / (double) RAND_MAX ) ] 
} /* distribute () */ 

/* 

* check_key () - controle qu'une touche n'a pas ete enfoncee, de facon a 

* suspendre l'affichage, auquel cas on attend la frappe d'une 

* autre touche pour continuer. Si de plus cette touche est ESC, 

* on interrompt le programme. 

*/ 

void check_key ( void ) 

{ 

if ( *keyboard & 0x80 ) { /* une touche a ete enfoncee */ 

if ( ( *keyboard & 0x7F ) == OxlB ) { /* Escape */ 
stop_simul = TRUE; 
return; 
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} 

*kbd_strobe = 0; 

while ( ! ( *keyboard & 0x80 ) ) ; /* attente touche reprise */ 

if ( ( *keyboard & 0x7F ) == OxlB ) { /* Escape */ 

stop_simul = TRUE; 

return; 
} 

*kbd_strobe = 0; 

} 
} /* check key () */ 



/* 

* next_event () - recherche de l'evenement ayant l'heure la plus petite, et 

* qui est done celui a traiter. 

* On ajuste ensuite l'horloge du systeme et des autres 

* evenements pour simuler le temps qui passe. 
*/ 

short next_event ( void ) 

{ 

short event =0, i, event_time; 

/* 

* Recherche du prochain evenement. 
*/ 

for ( i = 1; i < MAX_EVENTS; i++ ) 

if ( event_table[i] < event_t able [event] ) 
event = i; 

/* 

* Ajustement de l'horloge des autres evenements. 

*/ ~ 

event_time = event_table [event] ; 

for ( i = 0; i < MAX_EVENTS; i++ ) 
event_table [i] -= event_time; 

system_clock += event_time; 

return ( event ) ; 

} /* next event () */ 



/* 

* start_job () - demarrage de la premiere tache de la queue si il n'y en a pas 

* deja une d'active; dans le cas contraire, on ne fait rien. 
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*/ 

boolean start_job ( void ) 
{ 

short num_term, start_time, queue_time, run_time; 

/* 

* Detection d'une tache courante. 
*/ 

if ( current_job.run_time != ) 
return ( TRUE ) ; 

/* 

* Si la queue est vide, on n'a aucune tache a soumettre. 
*/ 

if ( empty_queue ( &cpu_queue ) ) 
return ( TRUE ) ; 

/* 

* Recuperation de la prochaine tache a executer et de ses parametres 

* temporels qui servent a ajuster le temps deja passe dans la queue, et 

* le temps d' execution de la tache courante. 
*/ 

if ( ! dequeue_job ( &num_term, &start_time, &queue_time, &run_time ) ) 
return ( FALSE ) ; 

current_job.num_term = num_term; 

current_job.run_time = run_time; 

current_job.queue_time = queue_time + system_clock - start_time; 

event_table[TIME_OUT] = CPU_LIMIT; 

event_table[END_JOB] = run_time; 

printf ( "%5d : demarrage tache du terminal %d, duree %d, a attendu %d\n", 

system_clock, num_term, run_time, current_job.queue_time ); 
check_key (); 

return ( TRUE ) ; 

} /* start job () */ 



/* 

* submit_job () - soumission d'une tache en l'ajoutant a la fin de la queue 

* des taches en attente du CPU. 

* On essaye ensuite de demarrer la premiere tache de la queue 

* au cas ou ce serait celle que l'on vient d'ajouter. 
*/ 

boolean submit_job ( short num_term > 

{ 

sho rt run_t ime ; 
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if ( ! enqueue_job ( num_term - 1, system_clock, 0, 

run_time = distribute ( MEAN_RUN ) ) ) 
return ( FALSE ) ; 

printf ( "%5d : soumission tache du terminal %d, duree %d\n", 

system_clock, num_term - 1, run_time ); 
check_key (); 

/* 

* On relance un nouveau job de ce terminal . 
*/ 

event_table [num_term] = distribute ( MEAN_SUBMIT ) ; 

return ( start_job () ) ; 

} /* submit job () */ 



/* 

* finish_job () - fin d' execution d'une tache. On met a jour le temps total 

* passe dans la queue puis on lance la tache suivante. 
*/ 






boolean finish_job ( void ) 



event_table[END_JOB] = BIG_TIME; 
event_table[TIME_OUT] = BIG_TIME; 

num_jobs++; 

total_queue_time += current_job.queue_time; 

printf ( "%5d : fin tache du terminal %d, a attendu %d\n", 

system_clock, current_job.num_term, current_job.queue_time ) ; 
check_key ( ) ; 

current_job.run_time = 0; 
return ( start_job () ) ; 

} /* finish job () */ 



/* 

* requeue_job () - preemption d'une tache qui a consomme tout le temps qui 

* lui etait imparti. Cette tache est remise a la fin de 

* la queue en tenant compte du temps passe dans le CPU 

* (pour qu'elle reprenne la ou elle en etait reste) . 
*/ 

boolean requeue_job ( void ) 

{ 

short more time; 
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event_table[END_JOB] = BIG_TIME; 
event_table[TIME_OUT] = BIG_TIME; 

if ( ! enqueue_job ( current_job.num_term, system_clock, 

current_job. queue_time, 

more_time = current_job.run_time - CPU_LIMIT ) ) 
return ( FALSE ) ; 

printf ( "%5d : preemption tache du terminal %d, reste %d\n", 

system_clock, current_job.num_term, more_time ) ; 
check_key (); 

current_job.run_time = 0; 
return ( start_job () ) ; 

} /* requeue job () */ 



/* 
* main () - programme principal. 
*/ 

void main ( void ) 

{ 

short num_event; 

/* 

* Initialisations de la queue du CPU, du generateur de nombres aleatoires, 

* de l'horloge, des statistiques, et du nombre de terminaux. 
*/ 

init_queue ( &cpu_queue ) ; 

srand (time ( NULL ) ) ; 

total_queue_time = num_jobs = 0; 

system_clock = 0; 

current_job.run_time = 0; /* indique aucune tache en cours */ 

num_terms = ( rand () % ( MAXJTERMS - 1 ) ) + 2; 

printf ( "Simulation pour %d terminaux\n\n", num_terms ); 

/* 

* Initialisation de la table d'evenements : fin du job et timeout cpu 

* tres loin dans le futur, et heure de soumission d'un premier job pour 

* chacun des terminaux simules. 
*/ 

event_table[END_JOB] = BIG_TIME; 
event_table[TIME_OUT] = BIGJTIME; 

for ( num_event =2; num_event < num_terms +2; num_event++ ) 
event_table[num_event] = distribute ( MEAN_SUBMIT ); 

for ( num_event = num_terms + 2; num_event < MAX_EVENTS; num_event++ ) 
event_table [num_event ] = BIG_TIME; /* evenements inutilises */ 
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/* 

* Boucle tant que le nombre de jobs a simuler n'est pas atteint et 

* dispatching en fonction du premier evenement dans le temps. 
*/ 

stop_simul = FALSE; 

while ( ! stop_simul && num_jobs < MAX_JOBS ) 

switch ( num_event = next_event () ) { 

case END_JOB : finish_job () ; 
break; 

case TIME_OUT : requeue_job (); 
break; 

default : submit_job ( num_event ) ; 
break; 



printf ( "\n\nNombre de jobs executes = %d\n" 
"Temps total dans la queue = %ld\n" 
"Temps moyen d'un job dans la queue = %f\n", 
num_jobs, total_queue_time, 
(double) total_queue_time / (double) num_jobs ) ; 

printf ( "\nAppuyez sur une touche pour terminer : " ); 

*kbd_strobe = 0; 

while ( ! ( *keyboard & 0x80 ) ); 

*kbd_strobe = 0; 

} /* main () */ 
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Programmation n°3 : les listes 






Dans cet article, nous allons poursuivre Petude des structures de 
donnees avec les "listes", qui sont une generalisation des "piles" 
et des "queues" dont nous avons traite dans les 2 precedents numeros 
de GS Infos. 

Concepts de Liste 



*J 



Une des structures de donnees tres frequemment utilisee est designee sous 
le nom de "liste". II s'agit de la meme idee que celle de la liste que Ton 
peut etablir dans la vie quotidienne, comme la liste des numeros de 
telephone de ses amis, ou des choses a faire dans la semaine ... 

De quoi s'agit-il ? Une "liste" est un ensemble ordonne d'elements. 
Ordonne ne veut pas forcement dire trie, mais simplement qu'un ordre peut 
etre determine par la maniere dont les elements sont inseres dans la liste. 
Par exemple, un nouvel element pourrait etre toujours ajoute en tete de la 
liste, ou en queue, ou a un autre endroit arbitraire. 

A quoi sert une liste ? Comme son nom Pindique, une liste permet de 
representer un ensemble d'objets similaires et dont le nombre peut ne pas 
etre determine a I'avance, afin d'en dresser la liste. Ces objets peuvent 
avoir une relation entre eux, ou pas, selon les besoins. C'est un peu la 
structure fourre-tout, que Pon utilise lorsqu'une structure plus 
specifique n'apporte pas grand chose de plus. 

En tant que type de donnees abstrait, une liste possede un certain nombre 
de proprietes : 

• Eile peut avoir ou plus elements. 

• Un nouvel element peut etre ajoute a une liste a n'importe quel moment et 
n'importe ou. 

• N'importe quel element d'une liste peut etre supprime a tout moment. 

• Un element quelconque d'une liste peut etre accede independamment des 
autres elements. 

• Une liste peut etre traversee de fagon a visiter successivement chacun de 
ses elements. 

Une des difficultes de ('implementation du type liste est la variete des 
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operations possibles qu'il peut subir, et qui dependent en fait de 
Putilisation particuliere faite par le programme; par exemple et par 
definition, une liste peut posseder plusieurs operations d'insertion, de 
suppression et d'acces d'un element. C'est pourquoi nous ne verrons qu'un 
sous-ensemble des operations possibles; celui-ci vous permettra cependant 
d'adapter les fonctions presentees a vos propres besoins. 

Etant donne que les elements sont ordonnes dans la liste, on peut distinguer 
pour chaque element son "precedent" (le premier element n'en aura pas, 
bien entendu), et son "suivant" (qui n'existera pas pour le dernier element 
de la liste). 

II existe plusieurs categories de listes. Ces categories indiquent comment, 
a partir d'un element donne, on peut eventuellement acceder a son precedent 
et a son suivant. Pratiquement, on distingue 4 categories de listes qui 
sont en fait la combinaison de 2 grandes classes : 

• La premiere classe indique si on peut distinguer ou non un premier et un 
dernier elements. On dit qu'une liste est "lineaire" dans le cas ou ces 
elements existent, c'est a dire que le premier element n'a pas de precedent 
et qu'un moyen externe a la liste permet d'y acceder; le dernier element, 
lui, n'a pas de suivant. Au contraire, une liste est "circulaire" lorsqu'elle 
ne comprend pas de premier ni de dernier; d'un point de vue pratique, cela 
veut dire que chaque element de la liste a un precedent et un suivant, 
formant en quelque sorte un anneau (par rapport a la liste lineaire, cela 
pourrait correspondre au fait que le suivant du dernier de cette liste est 

le premier, et par consequent le precedent du premier est le dernier). 

• La seconde classe indique si, a partir d'un element quelconque, on peut 
acceder a son suivant et a son precedent ou a un seul des 2 elements voisins. 
Lorsqu'un element ne connait qu'un seul voisin, on dit que la liste est 
"simple"; en general, il s'agit du suivant, mais ce n'est pas obligatoire. 
Pour acceder au precedent d'un element d'une telle liste, on doit la parcourir 
depuis le debut (dans le cas d'une liste lineaire - pour une liste circulaire, 
on part de I'element actuel), jusqu'a I'element voulu, tout en memorisant 

le precedent de chaque element visite. Lorsqu'on peut acceder aux 2 voisins 
d'un element, on dit que liste est "double"; dans ce cas, on peut acceder a 
n'importe quel element a partir de n'importe quel autre. 

Ces 2 classes se combinent pour former les 4 categories de liste evoquees 
plus haut : 






Les listes "lineaires simples" sont les plus proches des listes reelles 
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et de Pidee que Pon peut se faire d'une liste. Elles sont aussi les plus 
frequemment employees (en tout cas par moi ;-) lorsqu'on utilise des 
structures chainees (la manipulation de pointeur est relativement simple), 
et sont decrites en detail dans la suite de cet article, concernant notamment 
leur Implementation. 

• Les listes "lineaires doubles" sont interessantes lorsqu'on a besoin de 
parcourir une liste de fagon non sequentielle (c'est a dire que Pon doit 
faire des retours frequents vers des elements deja visites); en revanche, 
elles sont plus compliquees a implementer dans le cas de listes chainees 
(il faut manipuler 2 pointeurs). 

• Les listes "circulates" presentent Pavantage de permettre d'ajouter de 
nouveaux elements en queue tres rapidement; il suffit en effet de maintenir 

un pointeur sur le dernier element, et grace au lien vers le premier 
element, on peut acceder tres facilement a Pensemble de la liste. Ces 
listes peuvent indifferemment etre "simples" (n'avoir qu'un seul lien 
vers le suivant ou le precedent) ou "doubles". L'exemple le plus typique 
de Pemploi de ce type de liste est celui du langage "Lisp" (d'ailleurs 
le nom du langage est Pabreviation de "List Processor" ou traitement de 
listes). 

Nous aborderons done dans cet article la fagon de creer une liste lineaire 
simple, d'inserer un element en tete, en queue, et a un endroit quelconque 
de la liste, de supprimer le premier element, le dernier ou un autre 
quelconque ainsi que la liste entiere, d'acceder a un element quelconque 
et de traverser completement la liste. 






Remarquez que pour Pinstant, nous n'avons pas encore parle de representation 
d'une liste. C'est done bien un type abstrait, puisque nous avons pu 
clairement definir les operations et les proprietes liees a la liste, sans 
pour autant rentrer dans Pimplementation (meme si j'ai utilise le mot 
'pointeur', cela ne fait pas forcement reference a une structure chatnee). 



Representation d'une liste 



~ 



Une methode couramment employee pour representer une liste est Putilisation 
d'un tableau. Cette solution est acceptable dans le cas ou la liste subit 
peu de destructions d'elements, car dans ce cas il faut remonter les 
elements suivant celui detruit afin de boucher le trou ainsi cree, ce qui 
peut etre une operation couteuse. Les insertions se feront en general 
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uniquement en fin de liste, afin d'eviter le meme inconvenient, ce qui peut 
necessiter la mise en oeuvre d'un algorithme de tri si Ton a besoin que les 
elements aient un ordre plus previsible. 

Un autre probleme de Putilisation d'un tableau est que celui-ci a en 
principe une taille fixe predetermined (on peut contourner partiellement 
ce probleme en allouant une zone memoire pendant I'execution), ce qui 
limite arbitrairement la taille de la liste, et est done contraire aux 
proprietes enoncees plus haul 

Notez neanmoins qu'il n'y a pas de rapport direct entre la notion de 
tableau et celle de liste : la premiere est une implementation possible de 
la seconde, qui est un type abstrait. On designe cette implementation par 
le terme de liste contigue, ce qui indique que les elements de la listes 
sont contigus en memoire. 



^ 



Listes chainees 



Pour pallier a ces inconvenients, on emploie maintenant le mecanisme de 
pointeurs offert par des langages comme C ou Pascal. Par consequent, on ne 
consomme de la memoire que lorsqu'il est necessaire d'ajouter un nouvel 
element, cette memoire etant liberee lorsque I'element est detruit. La 
memoire ainsi allouee doit pouvoir etre combinee logiquement de fagon a 
former une seule entite que constitue la liste. La seule limite de taille 
d'une telle liste devient la memoire disponible. 

Une structure de donnees ainsi definie est appelee "liste chainee". Chaque 
element est denomme un "nceud" qui peut comprendre un certain nombre de 
champs, dont un defini par la structure et qui permet de pointer sur le 
nceud suivant (eventuellement le precedent) de la liste. 
Si Ton veut pouvoir mettre n'importe quel type d'elements dans la liste, 
un nceud ne doit compter que 2 rubriques : en plus du pointeur sur le nceud 
suivant, le nceud contient un pointeur generique vers I'information qu'il 
represents, cette information etant totalement independante de la structure 
de liste. 

Les differents noeuds d'une liste chainee ne sont done pas necessairement 
contigus en memoire (contrairement a la representation d'une liste sous 
forme d'un tableau). Par consequent, la recherche d'un element donne dans 
la liste doit se faire en parcourant la liste depuis le debut et en suivant 
les chamages, jusqu'a trouver I'element recherche. 
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Pour resumer, une liste chainee et un noeud sont definis de la maniere 
suivante : 

• Une liste chainee est un pointeur sur un noeud. 

• Un noeud d'une liste comprend 2 rubriques : 

Un pointeur vers le noeud suivant. 

Un pointeur vers les donnees representees par le noeud. 

Une telle definition d'une liste chainee est recursive, puisqu'une liste 
chainee est un pointeur sur un noeud, qui a son tour pointe sur une liste 
chainee. La recursivite s'arrete avec une liste vide qui est representee 
par un pointeur NULL en C et NIL en Pascal. Cependant, s'agissant d'une 
recursivite finale (la recursivite a lieu apres tous les traitements sur 
un nceud), elle peut etre remplacee facilement par une iteration (comme nous 
I'avons vu dans le precedent numero), ce qui est nettement moins couteux. 

Les manipulations de pointeurs etant plus complexes que ce que nous avons 
vu pour les piles et les queues, je les ai representees sous forme de figures. 
Vous trouverez ces figures dans les fichiers "Prog.3.Lst.F1.4" correspondant 
aux figures 1 a 4, et "Prog.3.Lst.F5.7" pour les figures 5 a 7. Ces fichiers 
sont au format "Apple Preferred" et peuvent etre visualisees avec tout 
programme de dessin tel que "Platinum Paint". Dans ces figures, les fleches 
en gras represented les chamages crees par I'operation materialised par 
la figure, tandis que les fleches en pointilles correspondent aux chamages 
supprimes par cette meme operation. 

La figure 1 montre la representation graphique d'une liste. On y voit bien 
la tete de la liste representee par L et la fin de la liste materialised 
par le symbole NULL. Pour simplifier la figure, la donnee a ete placee 
directement au niveau du nceud, alors que d'apres la definition precedente, 
elle aurait du etre pointee. 
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Une implementation d'une liste chainee 

Pour changer un peu, et ne pas etre accuse de sectarisme, les exemples 
ci-dessous seront tantot en C, tantot en Pascal. 

Une liste chainee telle qu'elle vient d'etre definie peut se declarer de 
la maniere suivante, selon le langage : 

• En C: 
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typedef void *data_ptr; 
typedef struct node *list; 
struct node { 

data_ptr data; 
list next; 

}; 

• En Pascal : 

type data_ptr = A char; 
list = A node; 
node = record 

data : data_ptr; 
next : list; 
end; 

Vous voyez que les definitions sont identiques en C et en Pascal 
(aux differences syntaxiques de chaque langage pres). 

Les routines qui vont etre amenees a manipuler cette structure n'auront 
bien entendu aucune idee de ce que represente le pointeur "data". De plus, 
la zone pointee devra etre geree a cote de la liste, en general par le 
programme qui utilise ces routines, et cela de fagon specifique au type 
d'informations a mettre dans la liste. 

Du point de vue de la structure de donnees, c'est I'ideal, puisque Ton a 
bien separe la representation du type des donnees specifiques a prendre en 
compte. Du point de vue de la programmation, et du GS (qui n'est tout de 
meme pas une machine tres puissante), ('utilisation de plusieurs couches 
de fonctions n'est sans doute pas aussi souhaitable, d'autant plus que la 
liste est un type employe tres frequemment et que les operations ne sont 
pas tres compliquees. C'est pourquoi je vous recommande vivement d'integrer 
les mecanismes decrits ici dans une structure comprenant a la fois vos 
donnees et le pointeur vers le noeud suivant et d'utiliser directement les 
algorithmes presentes aux bons endroits dans vos programmes. La forme 
presentee ici reste malgre tout utile pour la clarte des explications. 

Creation d'une liste 



Une nouvelle liste etant une liste vide, et cette derniere etant representee 
par un pointeur nul, la creation de cette liste est tres simple : il suffit 
d'initialiser le pointeur sur la tete de la liste a NULL en C, et a NIL en 
Pascal. Le programme d'application va done appeler une routine d'initialisation 

page 6 



de liste qui va se contenter de retourner ce pointeur nul. Par exemple, en 
Pascal (en supposant que Ton dispose d'une UNIT gerant les listes) : 

USES listes; 

VAR majiste : list; 

BEGIN 

majiste := createjist; 
END; 

La fonction createjist etant simplement : 

FUNCTION createjist : list; 
BEGIN 

createjist := NIL; 
END; 

Bien entendu, le programme aurait pu lui-meme initialiser sa liste a NIL 
(et il devra le faire si il integre directement les manipulations sur la 
liste); cependant, I'initialisation de la liste aurait pu contenir d'autres 
instructions necessaires a la librairie et que le programme n'a pas a 
connaitre; d'autre part, pour le programme, la liste est un type "opaque" 
(c'est a dire qu'il ne connait pas la maniere dont le type est implements), 
qu'il ne sait done pas initialiser. 

Insertion d'un element 



\~s 



Maintenant que nous disposons d'une liste (bien qu'encore vide), nous 
pouvons lui ajouter des donnees qui seront done representees chacune par 
un nceud. Ces donnees peuvent etre inserees dans la liste, soit en tete des 
nceuds deja existants, soit en queue, soit enfin au milieu selon une regie 
determined. 

Le cas d'insertion le plus simple est en tete de la liste; en effet, il 
suffit alors de creer le nouveau nceud (c'est a dire d'allouer la memoire 
necessaire a son stockage) puis d'assigner ce nceud au pointeur representant 
la liste, sans oublier d'avoir fait pointer le suivant de ce nouveau nceud 
vers I'ancienne tete de liste (c'est a dire le premier nceud de cette liste). 
Cela a I'air bien complique, alors que I'exemple Pascal ci-dessous montre 
qu'en fait c'est tres simple (cette procedure est illustree par 
la figure 2) : 



' 



PROCEDURE prepend_node ( var L : list; data : data_ptr ); 
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VAR node : list; (* declaration d'un noeud *) 
BEGIN 

NEW ( node ); (* creation du noeud *) 

node\data := data; (* enregistrement de la donnee *) 






^ 



node\next := L; (* le suivant pointe sur I'ancienne liste *) 

L := node; (* noeud devient la nouvelle tete de liste *) 



END; 






Vous noterez que le traitement d'une liste precedemment vide n'est pas isole, 
car dans ce cas Paffectation de I'ancienne tete de liste au suivant du 
nouveau noeud resulte en Pinitialisation de ce dernier a NIL, constituant 
ainsi une liste de un element (ce cas se produit uniquement lors de la 
premiere insertion). L'appel a cette procedure se fait alors simplement par : 

prepend_node ( majiste, data_ptr(@ma_donnee) ); 

Dans la pratique, ce devrait etre une fonction booleenne afin qu'elle puisse 
indiquer le succes ou Pechec de I'insertion (qui ne peut se produire que 
lorsqu'il n'y a plus assez de memoire). 

L'insertion en fin de liste est un petit peu plus compliquee puisque la 
seule information dont on dispose est le pointeur sur la tete de liste; il 
nous faut done parcourir la liste jusqu'au dernier noeud, puis le faire 
pointer vers le nouveau nceud (le dernier noeud contient NIL avant Pajout). 
Ce nouveau noeud doit lui pointer sur NIL, car il devient effectivement le 
dernier de la liste. Nous devons ici traiter separement le cas d'une liste 
precedemment vide, car on ne pourra pas la parcourir; la liste devient 
simplement le nceud (encore une fois, ce cas ne se produit que lors du 
premier ajout). Ecrit en Pascal, cela devrait etre un peu plus 
comprehensible (la figure 3 resume le deroulement des operations) : 

PROCEDURE appendjiode ( var L : list; data : data_ptr ); 

VAR node, last : list; 

BEGIN 

NEW ( node ); (* creation du nouveau noeud *) 

node A .data := data; (* enregistrement de la donnee *) 
node A .next := NIL; (* ce noeud sera le dernier de la liste *) 

IF L= NIL THEN 

L := node (* la liste devient le nouveau noeud *) 

ELSE BEGIN 

last := L; (* recherche du dernier noeud actuel *) 

WHILE last\next <> NIL DO last := last A .next; 

last\next := node; (* chainage du nouveau noeud *) 
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END; 
END; 






L'appel a cette procedure se fait alors simplement par : 

apppend_node ( majiste, data_ptr(@ma_donnee) ); 

Dans la pratique, ce devrait etre une fonction booleenne afin qu'elle puisse 
indiquer le succes ou I'echec de I'insertion (qui ne peut se produire que 
lorsqu'il n'y a plus assez de memoire). 

L'insertion en milieu de liste est en fait une generalisation de I'insertion 
en queue, puisqu'au lieu de chercher le dernier nceud, on va en chercher un 
quelconque, mais selon une regie bien definie. L'objectif de ce type 
d'insertion est de minimiser le parcours de la liste lorsque Ton a besoin 
d'acceder a Tun de ses nceuds; par consequent, I'insertion d'un element au 
milieu obeit tres souvent a une regie de tri (par exemple dans I'ordre 
croissant ou alphabetique selon le type de donnees mis en liste), ainsi, 
on pourra arreter la recherche des que Ton aura trouve un element "apres" 
celui recherche. Bien entendu, ce type d'insertion ne peut pas s'employer 
simultanement avec les 2 precedents, car ils fausseraient I'ordre etabli. 

Pour inserer un nouveau nceud au milieu, il nous faut rechercher celui qui 
se situera juste "apres" apres cette insertion (c'est a dire celui qui lui 
est immediatement superieur), sachant qu'il ne peut y en avoir aucun si le 
nouvel element est le plus grand de tous (auquel cas, il se retrouvera en 
queue de liste); nous devons aussi memoriser le nceud precedent celui trouve, 
car notre nouveau nceud s'inserera juste entre les 2, c'est a dire que le 
pointeur vers le nceud suivant de ce nceud "precedent" sera change pour 
pointer vers le nouveau nceud, dont le pointeur sur le suivant pointera vers 
le nceud "superieur" (ce nceud etait anciennement pointe par le suivant du 
nceud "precedent"). 

La seule vraie difficulty est la determination du point d'insertion, 
puisque nous ne savons pas ce que represente la donnee; il nous faudra done 
appeler une fonction du programme utilisateur passee en parametre. 
Voyons sur un exemple (en C pour changer) ce que tout cela donne (et sur la 
figure 4 pour une representation graphique du processus): 

void insert_node ( list *L, data_ptr data, short (*compare)() ) 

{ 

list node, current, previous; 

node = (list) malloc ( sizeof ( struct node ) ); /* creation noeud 7 
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node->data = data; /* enregistrement de la donnee */ 

/* recherche du noeud "superieur" et memorisation du "precedent" */ 
for ( current = *L, previous = NULL; 

current != NULL && ('compare) ( current->data, data ) < 0; 
previous = current, current = current->next ); 
if ( previous == NULL ) 

*L = node; /* Insertion en tete de liste */ 

else 

previous->next = node; /* Insertion entre previous et current */ 

node->next = current; /* nouveau noeud pointe sur "superieur" */ 

} 

C'est un petit peu plus complique que pour les insertions precedentes. 
Le parametre (*compare)() definit un pointeur sur une fonction externe qui 
est appelee dans la boucle for. C'est cette fonction qui va determiner la 
position a laquelle sera insere le nouveau noeud. On lui passe 2 parametres : 
le premier indique la donnee contenue dans le noeud actuellement traverse et 

le second la donnee a inserer; elle nous retourne un entier indiquant 

I'ordre relatif de ces donnees : 

• < si le noeud actuel de la liste se trouve logiquement avant celui a 
inserer. 

• = si les 2 donnees sont identiques : on peut decider soit d'inserer le 
nouveau noeud avant ou apres celui identique (ici c'est avant) ou encore de 
rejeter les doublons. 

• > si le noeud actuel de la liste se trouve logiquement apres celui a 
inserer. 

La boucle precedente recherche done le premier noeud dont la donnee est 

immediatement superieure (ou eventuellement identique) a celle du noeud a 

inserer. Bien evidemment, on s'arrete aussi lorsque Ton arrive en fin de 

liste sans avoir satisfait la comparaison. 

Le cas d'une liste vide n'est pas traite specifiquement puisque la boucle 

s'arretera des le premier passage ("current" sera NULL). 

La memorisation du noeud precedent se fait simplement en recopiant le 

pointeur sur le noeud actuellement traite avant de passer au suivant; 

le pointeur sur ce precedent est d'abord initialise a NULL pour detecter 

le cas ou le premier element satisfait la comparaison (ou que la liste est 

vide). 

L'insertion est ensuite un simple jeu de pointeurs : le noeud memorise en 

tant que precedent (ou la tete de liste si il est nul, indiquant une 

insertion en premiere position) pointe sur le nouveau noeud qui pointe 

a son tour sur le nceud qui doit etre son suivant (si le nouveau noeud doit 

etre insere a la fin de la liste ou que celle-ci est vide, le pointeur 
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suivant sera bien nul, et satisfera done les regies). 

L'appel a cette procedure se fait alors simplement par : 

insert_node ( majiste, data_ptr(@ma_donnee), ma_compare_routine ); 

Dans la pratique, ce devrait etre une fonction booleenne afin qu'elle 
puisse indiquer le succes ou I'echec de I'insertion (qui ne peut se produire 
que lorsqu'il n'y a plus assez de memoire). 

II faudra aussi avoir ecrit une fonction specifique ma_compare_routine qui 
pourrait ressembler a : 

short ma_compare_routine ( data_ptr datal, data2 ) 

{ 

if ( datal < data2 ) 

return ( -1 ); 

else if ( datal == data2 ) 

return ( ); 

else 

return ( 1 ); 

} 

Bien sur, il ne s'agit que d'un exemple, puisque datal et data2 sont en 
principe des pointeurs vers les veritables donnees. 
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Suppression d'un noeud 



Comme pour I'insertion, on peut envisager plusieurs methodes de suppression 
d'un nceud : soit le premier, soit le dernier, soit un autre quelconque. 

Encore une fois, la suppression du premier nceud est la plus simple puisqu'on 
peut Pacceder directement. II suffit de faire pointer la tete de la liste 
vers le suivant de la liste (c'est a dire le suivant du premier nceud) puis 
de liberer la memoire occupee par ce premier nceud. Le deuxieme element 
devient ainsi la nouvelle tete de liste; si la liste n'en comprenait qu'un, 
le resultat de cette operation donne une liste vide. Si la liste est vide 
au depart, une erreur doit etre signalee, car il n'y a bien evidemment rien 
a supprimer. Tout ceci donne en Pascal, et sur la figure 5 : 

FUNCTION deletejirst ( var L : list ) : data_ptr; 

VAR node : list; 

BEGIN 

IF L = NIL THEN deletejirst := NIL f erreur - liste vide "J 
ELSE BEGIN 

node := L A .next; (* preservation nouvelle tete de liste *) 

deletejirst := L\data; (* on retourne la donnee *) 

DISPOSE ( L ); 
L := node; (* liste demarre au second element *) 

END; 
END; 

Le pointeur vers le deuxieme nceud doit etre preserve dans une variable 
temporaire avant de liberer la memoire occupee par le premier, puisqu'apres 
cette liberation, on ne peut plus legalement acceder aux champs de la 
structure. Cette fonction retourne la donnee (en principe un pointeur sur 
celle-ci) afin que le programme puisse liberer la memoire qu'elle occupe. 

La destruction du dernier nceud d'une liste est a peine plus compliquee : 
il suffit de rechercher Pavant-dernier nceud puis de faire pointer son 
suivant sur NIL avant de liberer la memoire occupee par le dernier. Si la 
liste ne comprend qu'un seul nceud, il n'y aura pas d'avant-dernier, et la 
liste retournee sera alors vide. C'est bien entendu une erreur de supprimer 
un nceud lorsque la liste est vide. Enfin, on retourne la donnee pour 
liberation eventuelle de la memoire qu'elle occupe par le programme. 
Traduit en Pascal et graphiquement sur la figure 6, tout ceci donne : 



. 
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FUNCTION deletejast ( var L : list ) : data_ptr; 

VAR node, previous : list; 

BEGIN 

IF L = NIL THEN deletejast := NIL (* erreur - liste vide *) 

ELSE BEGIN 

previous := NIL; 
node := L; 
WHILE node A .next <> NIL DO BEGIN 

previous := node; (* avant dernier noeud *) 

node := node A .next; (* dernier noeud *) 

END; 
IF previous = NIL THEN 

L := NIL (* liste d'un seul noeud devient vide *) 

ELSE 

previous A .next := NIL; (* suppression dernier noeud *) 
END; 
END; 



La suppression d'un noeud quelconque d'une liste est la generalisation des 2 
fonctions precedentes. Le programme doit specifier la donnee correspondant 
au noeud a supprimer ainsi qu'une fonction booleenne permettant de comparer 
successivement la donnee de chacun des nceuds avec celle recherchee; ici, 
nous avons juste besoin de connaitre I'identite des donnees sans relation 
d'ordre. De notre cote, nous devons memoriser le noeud precedent de celui 
recherche, et lorsqu'il est trouve, par un simple jeu de pointeurs, il 
nous faut le faire pointer sur le suivant du noeud a supprimer. Nous 
retournerons NULL si le noeud n'est pas trouve (ceci traite aussi du cas 
d'une liste vide) et la donnee lorsqu'il a ete detruit afin que le 
programme libere la memoire occupee par cette demiere. Voyons ce que tout 
cela donne en C et sur la figure 7 : 

data_ptr delete_node ( list *L, data_ptr data, boolean (*compare)() ) 

{ 

list node, previous; 

/* recherche du noeud a supprimer et memorisation du precedent 7 
for ( node = *L, previous = NULL; 

node != NULL && ! (*compare) ( node->data, data ); 
previous = node, node = node->next ); 
if ( node == NULL ) /* Noeud inexistant 7 

return ( NULL ); 
if ( previous == NULL ) 

*L = node->next; /* Suppression du premier noeud 7 
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else 

previous->next = node->next; /* Suppression autre noeud 7 
data = node->data; 
free ( node ); 

return ( data ); 



La fonction compare utilisee est ultra-simple. Elle peut s'ecrire par exemple 

boolean mon_compare ( data_ptr datal, data2 ) 

{ 

return ( datal == data2 ); 

} 

II vous faudra bien sur substituer datal et data2 par les veritables donnees. 

Destruction complete d'une liste 






Apres ce que nous venons de voir, vous devriez imaginer assez facilement les 
actions a effectuer : il nous taut parcourir la liste, puis pour chaque 
element, appeler une fonction externe liberant la memoire occupee par la 
donnee. Nous devrons aussi memoriser dans une variable temporaire le noeud 
suivant celui a detruire, car nous n'avons pas le droit d'acceder a ses 
champs, une fois que la memoire qu'il occupait a ete liberee. Si la liste 
est vide, on ne fait rien, mais on ne signale pas non plus d'erreur. Apres 
cette operation, la liste est completement reinitialisee. 

Ce qui donne en C : 

void destroyjist ( list *L, void (*delete_data) ( data_ptr ) ) 

{ 

list node; 

if ( *L != NULL ) 

/* boucle sur chacun des noeuds de la liste 

node pointe sur le noeud suivant celui a detruire */ 
for ( node = (*L)->next; *L != NULL; ) { 

/* liberation memoire occupee par la donnee 7 
(*delete_data) ( (*L)->data ); 

free ( *L ); /* liberation memoire occupee par le noeud 7 

if ( ( *L = node ) != NULL ) /* si pas dernier noeud 7 
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node = node->next; I* on va le supprimer */ 



-. 



Parcours de liste 



En dehors des insertions et des suppressions de noeuds, nous avons besoin 
d'etre capables d'acceder a I'un d'entre eux et de parcourir completement 
I'ensemble de la liste pour effectuer un traitement sur chacun de ses noeuds 
(par exemple pour les visualiser). En fait, nous avons deja quasiment vu 
ces operations dans les routines precedentes. Nous pouvons done ecrire les 
2 fonctions suivantes en C : 

boolean find_node ( list L, data_ptr data, boolean (*compare)() ) 

{ 

list node; 

for ( node = L; node != NULL && (*compare)(node->data,data); node = node->next 

) 

return ( node != NULL ); 

} 

La fonction "compare" est identique a celle utilisee par "delete_node". Elle 
renvoie TRUE si le noeud existe et FALSE dans le cas contraire. Nous ne 
faisons que repercuter ce resultat. 

void traversejist ( list L, void (*process_data)() ) 

{ 

list node; 

for ( node = L; node != NULL; node = node->next ) 
(*process_data)(node->data); 

} 

Pour chacun des noeuds de la liste, on appelle une fonction externe 
"process_data" qui effectue le traitement approprie sur la donnee. Telle 
que cette fonction est ecrite, on ne peut pas s'arreter en cours de route 
(si par exemple la fonction externe considere qu'elle a termine son travail 
apres un certain nombre de noeuds). 

Pour pallier a ce probleme, on peut traverser la liste en gardant le 
controle, au lieu de le passer a la fonction de parcours. Pour cela, on 
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utilise un mecanisme que Ton designe sous le nom de "contexte". Lors du 
premier appel, le programme appelant I'initialise a NULL pour indiquer a 
la routine de se placer en debut de liste. Ensuite, cette variable est 
geree automatiquement par la routine de parcours, et on ne doit surtout 
pas la changer. Une fonction de parcours basee sur ce principe pourrait 
etre ecrite ainsi en Pascal : 

FUNCTION getjiode ( L : list; var context : list ) : data_ptr; 
BEGIN 

IF context = NIL THEN 

context := L (* initialisation au debut de la liste *) 

ELSE 

context := context\next; (* element suivant de la liste *) 
IF context = NIL THEN 

getjiode := NIL (* arrive en fin de liste *) 

ELSE 

get_node := context\data; (* retourne donnee *) 
END; 

Le fait de passer le contexte en parametre (plutot que d'utiliser une 
variable interne a la librairie) permet de parcourir simultanement 
plusieurs listes. Avec cette approche, on peut arreter le parcours lorsque 
cela est necessaire. 

Autres operations 






Nous avons fait le tour des principales operations utilisees avec les 
listes. On pourrait aussi ajouter une fonction verifiant si une liste est 
vide, ce qui s'ecrirait en Pascal : 

FUNCTION emptyjist ( L : list ) : boolean; 
BEGIN 

emptyjist := L = NIL; 
END; 

Les autres fonctions que Ton pourrait developper sont : 

• Obtention directe du premier et du dernier element (cas specifiques de la 
fonction find_node precedente). 

• Concatenation de 2 listes. 

• Copie d'une liste, avec ou sans copie des donnees (c'est a dire que les 2 
listes pourraient pointer sur les memes donnees; attention toutefois aux 
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problemes que cela pose en cas de destruction d'un nceud). 

• Comparaison de 2 listes, soit avec les elements a la meme position dans 
chacune des listes, soit en verifiant que les memes elements existent dans 
les 2 listes, meme si ils ne sont pas dans le meme ordre. 

• Et tout ce qui peut vous passer par la tete ... 

Le plus gros inconvenient des listes lineaires simples est la necessite 
d'effectuer un parcours de cette liste quasi-complet a chaque fois que 
Ton souhaite acceder a un element, ce qui peut poser un tres gros probleme 
si la liste est tres longue. Dans un prochain article, nous verrons des 
methodes permettant de pallier a ces problemes. 



Sur la disquette 



Sur la disquette GS Infos, vous trouverez une librairie complete utilisable 
telle quelle et realisant I'ensemble des operations decrites tout au long 
de cet article, ainsi que quelques unes de celles decrites dans le 
paragraphe precedent (les autres sont laissees en exercice au lecteur). 
Cette librairie vous est proposee sous 2 versions : Tune ecrite en ORCA/C, 
I'autre en ORCA/Pascal, le tout dans le sous-catalogue 7Prog.3". Chacune 
est mise en ceuvre par un programme de demonstration. Le sous-catalogue 
7Prog.3/Sources" contient les sources des librairies et des programmes de 
demonstration dans chacun des langages, tandis que le sous-catalogue 
7Prog.3/Librairies" contient les librairies avec lesquelles vous pourrez 
linker vos propres programmes, ainsi que I'interface de I'UNIT pour 
ORCA/Pascal. 

Vous avez sans doute remarque qu'a chaque fois qu'une fonction etait passee 
en parametre, je vous ai montre du code C au lieu du Pascal comme pour les 
autres (d'ailleurs, j'espere ne pas avoir melange les 2 dans le texte; 
heureusement les librairies sont bien dans le bon langage !). La raison en 
est qu'en general Pascal ne dispose pas de cette possibility (c'est le cas 
de TML Pascal II). Cependant, ORCA/Pascal permet de passer une procedure ou 
une fonction en parametre; ainsi la librairie Pascal contient exactement 
la meme chose que son homologue C, mais elle n'est pas utilisable telle 
quelle avec TML Pascal II. Je pense que ce n'est pas trop grave, car elles 
sont avant tout faites pour etre demontees et copiees/collees dans vos 
propres programmes (essentiellement pour des raisons de performance), si 
bien que vous n'aurez plus besoin de cette facilite. 
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Figure 1 : representation d'une liste chainee 
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Figure 3 : insertion d'un nceud en fin de liste 
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Figure 5 : Suppression du premier noeud d'une lisle 







Figure 6 ; Suppression du demier noeud d'une liste 
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Programmation C4 

Prog ram mat ion n°4 : manipulations de bits 



Avec cet article, nous allons faire une petite pause dans retude des structures de donnees. Je vous propose 
en effet de voir en detail les operateurs de manipulation de bits, qui nous seront fort utiles pour la suite de 
cette s6rie, notamment dans le prochain article. 

Cette discussion sera basee sur les operateurs disponibles dans le langage C (comme d'habitude). Toutefois, 
tout ce que je vais raconter est applicable en Pascal, les 2 compilateurs disponibles sur le GS offrant, a 
titre d'extension, les memes possibilites que le C (pour ORCA/Pascal, les operateurs sont strictement 
identiques a ceux de ORCA/C, tandis que TML Pascal definit des fonctions pour chacun de ces operateurs). 
Meme si votre langage de predilection est I'assembleur, je pense que vous trouverez des informations 
pertinentes sur le sujet; d'ailleurs, une partie du code accompagnant cet article est en assembleur (eh oui! 
tout peut arriver I). 



Rappels sur les operateurs de manipulation de bits 






C dispose de 6 operateurs specifiques travaillant au niveau du bit, c'est a dire que chaque bit du mot (de 8, 
16 ou 32 bits) qui le contient est considere independamment des autres bits de ce mot, et que ces 
operateurs permettent d'agir individuellement sur 1 ou plusieurs bits. Ces operateurs correspondent 
d'ailleurs a des instructions que I'on trouve sur la plupart des processeurs. 
En void la liste : 

• "&" effectue un "et" binaire : chaque bit du resultat vaut 1 si et seulement si les 2 bits correspondant 
(ie a la meme position) des operandes sont a 1; autrement le bit du resultat vaudra 0. Par constraste, 
l'operateur "&&" effectue un "et" logique, c'est a dire que le resultat vaut 1 si les 2 operandes sont non 
nuls.sinon 0. Cet operateur correspond a I'instruction "AND" du 65C816. 

• "|" effectue un "ou" binaire : chaque bit du resultat vaut si et seulement si les 2 bits correspondant 
des operandes valent 0; si I'un des bits des operandes vaut 1, le bit resultat vaudra 1. L'operateur "||" 
effectue un "ou" logique, c'est a dire que le resultat vaut 1 si I'un des 2 operateurs est non nul, autrement 
il vaut 0. Cet operateur correspond a I'instruction "ORA" du 65C816. 

• " A " effectue un "ou exclusif" binaire : chaque bit du resultat vaut 1 si et seulement si les 2 bits 
correspondant des operandes sont opposes (ie I'un vaut et I'autre 1); si les 2 bits considers sont 
identiques, le resultat vaudra 0. II n'y a pas d'operateur logique Equivalent. Cet operateur correspond a 

I'instruction "EOR" du 65C816. 

• "~" effectue un "complement a 1" : chaque bit du resultat vaut 1 si le bit correspondant de I'operande 
est 0, et vice-versa. Par contraste, l'operateur "!" effectue un "non" logique, c'est a dire que le resultat 
vaudra si I'operande est non nul, et 1 si il est nul. L'operateur unaire "-", non specifique aux 
manipulations de bits, realise le "complement a 2"; essentiellement, il effectue I'operation suivante : 
resultat = ~ operande + 1. Cet operateur n'a pas d'instruction machine equivalente, mais peut etre realise 
facilement en effectuant un "EOR $FFFF". 

• "«" effectue un "decalage a gauche" : I'operande de gauche est decal6 a gauche du nombre de bits specifie 
par I'operande de droite; autrement dit, les bits les plus significatifs de I'operande sont perdus, et des 
remplacent les bits les moins significatifs decaies vers des positions superieures. Un decalage a gauche 
correspond a une multiplication par 2 A bits (sauf en cas de debordement de capacite), ou " A " indique 
I'operation d'eievation a la puissance et bits est le nombre de bits decaies. 
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Programmation C4 
Cet operateur correspond a I'instruction "ASL" du 65C816, excepte qu'il taut la repeter autant de fois 
qu'il y a de bits a decaler. 

• "»" effectue un "decalage a droite" : I'operande de gauche est decale a droite du nombre de bits specifie 
par I'operande de droite; autrement dit, les bits les moins significatifs de I'operande de gauche sont perdus, 
et des remplacent les bits les plus significatifs decales vers des positions inferieures, si I'operande de 
gauche est non signe; si il est signe, le signe est propage dans les positions decalees. Un decalage a droite est 
equivalent a une division par 2 A bits, ou " A " indique I'operation d'elevation a la puissance et bits est le 
nombre de bits decales, sauf dans le cas ou le nombre est signe et que le resultat deviendrait 0; dans ce cas, 
il sera egal a -1. Cet operateur correspond a I'instruction "LSR" du 65C816 lorsque I'operande a decaler 
est non signe, et n'a pas d'equivalent direct s'il est signe, mais ce cas est assez rare. 

Les instructions "ROL" et "ROR" du 65C816 n'ont pas d'equivalent en C, ni en ORCA/Pascal; TML Pascal 
dispose des fonctions "BRotL" et "BRotR" mais elles ne sont pas strictement identiques aux instructions 
machines censees correspondre. Ce n'est pas bien genant, car on n'en pas specialement besoin; de plus, 
elles font appel a la "carry" qui n'est pas accessible dans un langage evolue. Enfin, elles peuvent etre 
realisees tres facilement a I'aide des operateurs precedents. 



Utilisation de ces operateurs 



Maintenant que nous avons les bases, nous allons pouvoir utiliser ces operateurs pour realiser des 
operations un peu plus sophistiquees. 

Dans la panoplie des operateurs listee ci-dessus, vous avez sans doute remarque qu'il manque la possibility 
de positionner un ou plusieurs bits a 1 ou a dans un operande; ces operations sont pourtant des 
operations de base, d'autant plus qu'elles sont disponibles en assembleur avec les instructions "TSB" et 
"TRB". C'est done la premiere chose que nous allons realiser, d'autant que e'est tres facile ! 

Positionnement d'un bit a 1 



^J 



Commengons par le positionnement d'un bit quelconque a 1 dans un entier (sur 8, 16 ou 32 bits, cela n'a 
pas d'importance). 

Si vous regardez la definition du "ou" donnee plus haut, vous vous apercevrez qu'un bit du resultat est a 1 
des lors que le bit correspondant de I'un des operandes est a 1. Done pour mettre un bit a 1 dans un entier, 
il suffit de faire un "ou" entre ce bit et un 1 : si le bit en question est deja a 1, il ne changera pas; en 
revanche, s'il vaut 0, le resultat du "ou" avec 1 le mettra bien a 1. De meme, si je fais un "ou" entre un 
bit de rentier considere et 0, le bit en question ne changera pas; en quelque sorte, un "ou" avec est un 
"NOP". 

Maintenant, le probleme est de mettre un 1 en face du bit a positionner. 

En fait ce que Ton veut creer c'est un "masque" dont tous les bits sont a (pour ne pas changer les bits 
correspondant de rentier), sauf celui que Ton veut positionner, et qui sera done a 1. La question est done de 
transformer quelque chose comme "bit x" dans le masque correspondant. 

Prenons maintenant I'operateur "«". Pour creer notre masque, il nous suffit de decaler a gauche un 1 du 
nombre de bits desire, de fagon a ce qu'il se retrouve a la position voulue dans le masque. En effet, la 
constante 1 correspond a un masque ayant le bit positionne; il nous faut done 'pousser' ce bit de fagon a 
ce qu'il se retrouve a la position recherchee. 
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Programmation C4 
Avec ces 2 operateurs, on peut done realiser I'operation de positionnement d'un bit a 1 tres simplement : 

nombre = nombre | ( 1 « bit); 

"Nombre" est rentier consid£re, et "bit" le numero du bit devant etre mis a 1. Cette expression peut etre 
'simplified' (cela depend du point de vue) ainsi : 

nombre |= 1 « bit; 

L'interet de cette deuxieme forme est que le nombre ne sera evalue qu'une seule fois. 

Pour ne pas avoir a se rappeler cette formuie, le plus simple est d'ecrire une fonction qui accepte 2 
arguments : le "nombre" et le "bit" a positionner. 

Mais en C, on peut faire mieux; etant donne la simplicity du calcul, il est preferable d'utiliser une macro, 
par exemple : 

#define set_bit(n,b) ( ( n ) |= ( 1 « ( b ) ) ) 

Vous avez sans aucun doute remarque la profusion de parentheses : lorsqu'on definit une macro, il est 
souhaitable d'entourer chacun des arguments de la macro par des parentheses. En effet, ceux-ci peuvent 
etre des expressions et la macro procede par substitution; on veut done eviter que I'expression resultant de 
I'expansion ne soit pas evalu§e telle qu'elle a ete ecrite dans le programme, notamment a cause des regies 
de precedence. On prend done un maximum de precautions, et on entoure chaque argument de parentheses; 
ce n'est pas bien g£nant car cela reste au niveau de la definition de la macro. 

Positionnement d'un bit a 






II nous faut maintenant realiser le pendant de reparation precedente, a savoir positionner un bit 
quelconque d'un entier a 0. 

Cette operation est un petit peu plus compliquee que la precedente. En effet, le "ou" est inadapte a cette 
situation, puisqu'on ne peut pas faire un "ou" avec quelque chose dans le but d'avoir un en resultat : un 
"ou" avec 1 va mettre un 1, et un "ou" avec est un "NOP". 

En Gtudiant les operateurs dont on dispose, le seul qui puisse mettre un bit a de fagon certaine est le 
"et", puisqu'un "et" avec donne tandis qu'un "et" avec un 1 est un "NOP". 

Le probleme est done desormais de creer un masque avec le bit a positionner a et tous les autres a 1, de 
fagon a ne pas changer les autres bits du nombre. A priori, I'operateur de decalage a gauche ne convient pas 
puisqu' il ne permet pas de faire glisser un dans un ensemble de 1. Revenons sur notre masque : si on 
inverse tous ses bits, on retrouve le masque utilise pour positionner un bit a 1. A I'inverse, je sais cr6er 
un masque avec un bit a 1; si j'inverse tout (ce qui est facile grace a I'operateur "~"), 
j'aurai bien un masque avec le bit a positionner a et tous les autres a 1. 

Par consequent, la mise a d'un bit quelconque est : 

nombre &= ~ ( 1 « bit ) 

On peut done definir une macro qui permet done de s'affranchir de I'ecriture de cette formuie : 

#define clear_bit(n,b) ( ( n ) &= ( ~ ( ( b ) « 1 ) ) ) 
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Cette macro ressemble comme 2 gouttes d'eau a la precedente. II serait peut-etre done preferable d'avoir 
une macro generique qui applique une operation entre un nombre et un bit, et que cette macro sort utilisee 
par les autres. Ceci est facilite par le fait qu'un argument d'une macro peut etre n'importe quoi, et pas 
necessairement une variable, puisque I'expansion d'une macro consiste a substituer ses arguments dans la 
definition de la macro. 

Je peux done creer une macro que j'appellerai "bit_op", definie ainsi : 

#deflne bit_op(n,b,op) ( ( n ) op ( 1 « ( b ) ) ) 

"n" est le nombre consid£re, "b" est le numero du bit a manipuler, et "op" est un ou plusieurs 
op6rateurs C tels que I'expression soit valide. Avec cette definition, je peux reecrire les macros 
precedentes de la facon suivante : 

#define set_bit(n,b) blt_op ( n, b, |= ) 

#define clear_bit(n,b) bit_op ( n, b, &= ~ ) 

Le fait d'imbriquer les macros ainsi am§liore legerement la lisibilite et permet eventuellement de 
remplacer "bit_op" par une autre version (comme nous le verrons plus loin) sans necessiter la 
redefinition de toutes les macros. En revanche, cela n'a aucun impact sur les performances, puisque 
les macros seront substitutes par le compilateur, et le programme exScutera I'operation finale, comme si 
elle avait ete codee directement. 

Autres operations sur 1 bit 



On peut completer les 2 macros precedentes par : 

#define toggle_bIt(n,b) blt_op ( n, b, A = ) 
#define test_bit(n,b) bit_op ( n, b, & ) 

La premiere utilise la propriete de I'operation "ou exclusif" ou "xor" pour offrir une fonction 
d'inversion de bit. 

La seconde permet de tester si un bit est a 1 ou pas : il suffit d'effectuer un "et" entre le nombre considere 

et un masque a 1 pour obtenir le resultat. 

Notez que contrairement aux autres macros, celle-ci ne modifie pas son argument; elle se contente de le 

tester. 

Generalisation a des masques de plusieurs bits 



U 



Toutes ces macros presentent un inconvenient : elles n'agissent que sur un seul bit a la fois. II serait done 
souhaitable de disposer d'un autre jeu de macros travaillant directement sur un masque de bits. Avec ce que 
nous avons vu, rien de plus facile : 

#define mask_op(n,m,op) ( ( n ) op ( m ) ) 

#define set_mask(n,m) mask_op ( n, m, |= ) 

#define clear_mask(n,m) mask_op ( n, m, &= ~ ) 

#define toggle_mask(n,m) mask_op ( n, m, A = ) 
#define test_mask(n,m) mask_op ( n, m, & ) 
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Ces macros sont strictement identiques a leurs homologues agissant sur un seul bit, excepts qu'il n'est plus 
necessaire de calculer le masque, celui-ci etant fourni en parametre. 

Toutes ces macros, ainsi que plusieurs autres sont definies dans le fichier "Bit.h" que vous trouverez sur 
votre disquette "GS Infos". Les macros non decrites ici sont suffisamment triviales pour ne pas necessiter 
d'explications supplementaires; de toute maniere, elles sont abondamment commentees dans le fichier 
"Bit.h". 



Multiplications et divisions 



■O 



Lors de la description des operateurs "«" et "»", j'ai indique qu'ils etaient equivalents a une 
multiplication et a une division par une puissance de 2. Par rapport a la multiplication et a la division, ils 
presentent cependant un avantage indeniable : ils sont beaucoup (mais alors vraiment beaucoup !) plus 
rapides, d'autant plus que ce sont des instructions du 65C816, alors que ce n'est pas le cas de la division ni 
meme de la multiplication. 

Je ne peux que vous recommander d'utiliser des decalages a chaque fois que cela est possible, et ce malgre 
le fait qu'on ne peut les utiliser qu'a la place de multiplications/divisions entieres par des puissances de 2. 
Cela semble etre une tres forte restriction, mais en fait il y a enormement de programmes qui peuvent en 
beneficier, sans doute parce que I'informatique est essentiellement binaire. 

Pour vous convaincre de la difference de rapidite entre les 2, j'ai ecrit un petit programme de mesure de 
performances. Ce programme effectue 50000 multiplications et 50000 decalages a gauche; pour que cela 
soit significatif, le decalage est fait sur 14 bits, et pour rester coherent, on muitiplie par 16384. Enfin, 
histoire d'etre dans le cas le plus defavorable, les calculs sont effectues sur des entiers longs. Pour que les 
tests soient complets, la meme comparaison est effectuee entre 50000 divisions et 50000 decalages a 
droite. Enfin, j'ai effectue le meme test avec le calcul du reste en utilisant I'equivalence suivante : 

mod(x,p2) = x & ~( p2 - 1 ) 

c'est a dire que le reste de la division par une puissance de 2 correspond a la remise a des bits de poids 
faible. 

Voici les resultats de I'execution de ce programme : 

Multiplication ... duree = 20 secondes 
Decalage ... duree = 4 secondes 
Division ... duree = 22 secondes 
Decalage ... duree = 5 secondes 
Reste ... duree = 22 secondes 

And ... duree = 1 secondes 

On constate immediatemment la difference de performances entre le decalage et la multiplication/division : 

environ 4 a 5 fois. J'ai bien entendu effectuS plusieurs executions, et a chaque fois le resultat est 

similaire. 

La difference est encore bien plus grande pour le reste, puisque cela est quasiment instantanne si on utilise 

un masquage des bits de poids faible. 

Une deuxieme partie du test est plus proche de ce que Ton a besoin normalement, c'est a dire de multiplier 
ou diviser un petit nombre par une petite puissance de 2 (en general 2, 4 ou 8). 
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Voici les resultats de ce test : 

Multiplication ... duree = 6 secondes 
Decalage ... duree = 2 secondes 
Division ... duree = 6 secondes 
Decalage ... duree = 2 secondes 

La encore, la difference est spectaculaire ! En fait, elle le serait sans doute encore plus si j'avais utilise 
des entiers courts plutot que des longs. Je vous laisse faire la comparaison vous-memes. 

Pour vous eviter de vous creuser la tete pour chercher I'equivalence entre une multiplication (ou une 
division) et le decalage correspondant, j'ai mis au point un jeu de macros (qui est aussi dans "Bit.h") : 

#define mul(n,m) ( n « find_first_set ( m ) ) 
#define div(n,m) ( n » find_first_set ( m ) ) 
#define mod(n,m) ( n & ~ ( m - 1 ) ) 

"n" est le nombre a multiplier, et "m" est le multiplicateur qui doit done etre une puissance de 2. 

Cette macro fait appel a une fonction "findjirst_set" qui recherche le premier bit a 1 de son argument, et 
dans ce cas precis, trouve done I'exposant utilise par cette puissance de 2. En fait "find_first_set" est 
une autre macro definie ainsi : 

#define find_first_set(n) findjirst ( n, 1 ) 

La fonction reelle est "findjirst"; son deuxieme argument donne la valeur du bit a rechercher, et vaut 1 
ou 0. 

Cette macro est accompagnee des macros suivantes : 

#define flnd_first_clear(n) 
#define find_first_set_l(n) 
#define find_first_clear_l(n) 

Les macros en "J" et la fonction "findjirstjong" sont identiques aux precedentes, exceptees que "n" 
doit etre un entier long et non un entier court. 

Les performances obtenues avec ces macros sont : 

mul(n.m) macro ... duree ■ 8 secondes 
div(n.m) macro ... duree = 9 secondes 
mod(n.m) macro ... duree = 1 secondes 

On constate que les macros sont 2 fois moins performantes que ('utilisation directe du decalage, ce qui est 
tout a fait normal, etant donne que la fonction "findjirst" effectue aussi un decalage du meme nombre de 
bits pour trouver le premier a 1. 

Les fonctions "findjirst" et "findjirstj" ont ete ecrites en assembleur, afin d'obtenir la performance 
maximale (elles sont dans le fichier source "Find. Bit. asm"). Elles sont incluses dans la librairie 
"Bit.lib" qui se trouve sur ce GS Infos, et peuvent etre utilisees dans d'autres contextes que celui decrit 
ici. En fait, la recherche du premier bit a 1 ou est une fonction utile dans un certain nombre de 
situations. Par exemple, si vous avez un tableau de moins de 32 octets, et que vous savez qu'il n'est pas 
necessairement plein, vous pouvez lui adjoindre un entier court ou long selon la taille de votre tableau, et 
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positionner le bit correspondent a chaque Element utilise. Un appel a "find_first_set_r vous donne le 
premier element utilise et "find_first_clearj" le premier disponible. 

Pour mesurer I'efficacite reelle du compilateur C, et de ma version assembleur, j'ai aussi ecrit une 
version en C des fonctions "findjirsf et "findjirstjong". Je les ai appelees "find_first_cc" et 
"find_first_long_cc"; le source est dans le fichier "Bit.cc" et I'objet dans la librairie "Bit. lib". 

J'ai seulement effectue le premier test de multiplication avec cette fonction, et void le resultat : 

find_first_cc ... duree = 10 secondes 

Bien que Poptimisation effectuee par ORCA/C soit loin d'etre optimale, par rapport a la version que j'ai 
ecrite en assembleur, la difference de performance n'est pas trop significative (25% plus mauvais). On 
peut done continuer a utiliser le C, sans trop se poser de questions, sauf si Ton fait vraiment des choses 
compliquees, et qu'alors I'assembleur permette d'ameliorer de fagon significative les performances. 

II me faut enfin vous indiquer que ces tests ont ete effectues sur un GS rom 1, avec une ZIP 8 MHz et 16 Ko 
de cache. Les resultats peuvent etre differents sur un GS de base; je parle bien entendu des rapports et pas 
des durees qui sont forcement plus tongues. 

Chaines de bits 



Tout ce que nous avons vu jusqu'a present est bien joli, mais malheureusement ne s'applique qu'a un type 
scalaire predefini, e'est a dire a un entier sur 8, 16 ou 32 bits. II serait bien agreable de pouvoir 
effectuer les memes manipulations sur des entites plus grandes, par exemple 64 ou 128 bits. 

C'est bien entendu tout a fait possible. Pour cela, on va definir un nouveau type (ce n'est pas une structure 
de donnees a proprement parler) : la "chaine de bits" ou "tableau de bits" ou en anglais, "bitstring" ou 
"variable length bit field" (on emploie aussi parfois, mais de fagon impropre, le terme de "bitmap"). 

L'idee generate est de travailler non plus au niveau de I'octet, mais au niveau de chaque bit. On va done 
considerer une chaine de bits de longueur finie. Bien entendu, pour la machine, I'entite de base reste 
I'octet ou le mot, et il va nous falloir effectuer une correspondance entre notre unite de base et celle de la 
machine. De plus, il n'est pas question non plus de gaspiller de la place; on va done compacter notre chaine 
de bits a I'interieur d'octets ou de mots. Comme le GS est une machine 16 bits, il parait tout a fait naturel 
d'exploiter des mots courts comme unite de compactage de notre chaine de bits. 

Par consequent, notre chaine de bits va etre materialisee par un tableau de mots de 16 bits, dont la 
dimension sera egale au nombre de bits maximum de la chaine divise par 16, arrondi au nombre 
superieur. Ainsi si je veux travailler sur une chaine de 80 bits, je declarerai un tableau de 5 mots 
de 16 bits. 

Comme on est en train de creer un nouveau type, et histoire de se simplifier la vie, nous allons construire 
une librairie permettant de gerer les chaines de bits. 

On va done d'abord definir un type "bitstring" permettant de masquer les details de I'implementation a 
I'utilisateur de la librairie : 

typedef unsigned short *BitStrlng; 
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A partir de la, on peut creer une fonction "create_bitstring" qui realise la creation d'une chaine de bits de 
la taille demanded en allouant le tableau de mots de 16 bits sous-jacent : 

BitString create_bitstring ( unsigned short size ) 

{ 

short num_words; 
BitString bit_str; 

num_words = ( size » 4 ) + ( ( size & OxOf ) ? 1 : ); 

if ( ( bit_str = calloc ( num_words + 1, sizeof ( short ) ) ) != NULL ) 

*bit_str = size; 
return ( bit_str ); 

} /* create_bitstring () */ 

Dans cette implementation, on alloue un mot de plus que la taille necessaire, de fagon a y stocker la taille de 
la chame de bits. On pourrait se servir de cette information pour valider le num§ro de bit dans les 
fonctions en acceptant un en parametre, mais je ne I'ai pas fait dans cette implementation (la raison en est 
que ces fonctions sont implSmentees par des macros, et que ce test les aurait compliquees inutilement). On 
utilise la fonction de la librairie standard "calloc" plutot que "malloc", car elle pr§sente I'avantage 
d'initialiser la memoire allouee a 0, ce qui nous est fort utile ici; on a en effet envie que tous les bits 
soient a pour commencer. 

Comme il faut toujours laisser les choses dans I'etat dans lequel on les a trouv§es, il nous faut aussi une 
fonction de destruction d'une chaine de bits, qui est reduite a sa plus simple expression : 

void delete_bltstring ( BitString bit_str ) 

{ 

free ( bit_str ); 
} /* delete_bitstring () */ 

Nous pouvons maintenant utiliser notre chaine de bits pour realiser les operations classiques : 
positionnement d'un bit a 1 ou a 0, test d'un bit a 1 et inversion d'un bit. Ca ne vous rappelle rien ? Ce 
sont justement les macros que nous avons definies au debut de cet article. L'idSal serait de creer une 
nouvelle version de "bit_op" fonctionnant avec une bit string, et les autres macros fonctionneraient sans 
aucun changement. 

C'est bien §videmment ce que nous allons faire; voici cette macro : 

#define bit_op(var,bit,op) ( var[((bit) » 4) + 1] op ( 1 « ((bit) & OxOf) ) ) 

Whaou ! Voila qui nScessite quelques explications : 

Notre chaine de bits etant en fait constitue d'un tableau de mots de 16 bits, la premiere chose a faire est de 
determiner le mot qui sera affecte; c'est ce que realise "var[((bit) » 4) + 1]" : la division du num§ro de 
bit pari 6 (le nombre de bits dans un mot) donne le numero de mot, tandis que I'ajout de 1 tient compte du 
mot supplemental au debut de la chaine de bits, et contenant la taille de cette chaine. 

La deuxieme partie de la formule calcule le numero du bit dans le mot determine prec6demment; ceci est 
effectue par ((bit) & OxOf) : puisque chaque mot comprend 16 bits, le numero du bit est done compris 
entre et 15; il nous suffit done de prendre le reste de la division par 16 pour obtenir ce numero de bit. 
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Voyons comme cela marche sur un exemple : prenons par exemple le bit 69 d'une chaine de 80 bits : la 
division par 16 donne le 4, mais comme le premier indice est 0, ce la nous donne le cinquieme mot du 
tableau; on lui ajoute ensuite 1 pour prendre en compte le mot qui contient la taille de la chaine de bits. 
Le reste de la division par 16 donne 5, ce qui au final donne pour ce bit 69, le cinquieme bit du sixieme 
mot. 

Les macros de C trouvent ici toute leur justification : on peut ainsi pousser les possibilites du langage a ses 
limites, tout en en masquant la complexity dans une macro; le code principal reste lui parfaitement 
lisible. 

Cette macro, ainsi que les prototypes des fonctions sont definies dans le fichier "BitString.h". Afin de ne 
pas avoir a redefinir les macros effectuant les operations de base (set_bit,clear_bit,toggle_bit et 
test_bit), "Bit.h" est inclus apres la definition de "bit_op". Et pour qu'il ne redefinisse pas sa propre 
version de "bit_op", "BitString.h" definit le symbole _BIT_STRING avant I'inclusion. En fait, toutes les 
parties de "Bit.h" non pertinentes pour les chaines de bits sont exclues grace a la compilation 
conditionnelle. 

Pour etre tout a fait complet, "BitString.cc" definit une nouvelle fonction "findjirst" utilisee par les 
macros "find_first_set" et "find_first_clear" a la place de celle implementee dans "Find.Bit.asm". Voici 
cette fonction : 

short find_first ( BitString blt_str, unsigned short flag ) 

{ 

unsigned short bit; 

for ( bit = 0; bit < *bit_str; bit++ ) 

if ( ( test_blt ( bit_str, bit) != ) == flag ) 
return ( bit ); 
return ( ); 
} /* findjirst () */ 

Cette fonction recherche le premier bit de la chaine ayant une valeur egale a celle du flag. Pour ce faire, on 
isole chacun des bits tour a tour en partant du bit a I'aide de la macro "test_bit", et on force le resultat 
a etre ou 1 grace au test "!= 0". II ne nous reste plus qu'a comparer cette valeur avec celle du bit 
recherche, et specifiee par le flag. 

■ 

La librairie contient enfin la fonction "get_bitstring_size()" qui retourne la taille stockee dans le 
premier mot de 16 bits. 



Sur la disquette 






Vous trouverez sur votre disquette GS Infos les fichiers suivants : 

• "Bit.h" definition des macros permettant de manipuler des bits 

• "Bit.cc" implementation C de "findjirst" et "findjirstjong" 

• "Find.Bit.asm" implementation assembleur des fonctions ci-dessus 

• "Bit.lib" librairie contenant les versions C et assembleur 

• "Test.Speed.cc" demonstration des differences de performance entre : 

• "Test.Speed" un decalage et une multiplication/division 

• "BitString.h" definition macros/prototypes librairie chaine de bits 
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"BitString.ee" implementation C librairie de gestion de chaines de bits 

"BitString.lib" libraririe avec laquelle linker 

"Test.BS.cc" source C du programme de demonstration de cette librairie 

"Test.BitString" le programme de demonstration des chaines de bits 



Je vous propose de reflechir au probleme suivant : comment permuter 2 nombres "a" et "b" (c'est a dire 
qu'apres I'operation "a" doit contenir I'ancienne valeur de "b" et vice-versa), sans utiliser de 
variable intermediate. 

Allez, je vous aide un peu ... vous devez utiliser un des operateurs de manipulation de bits que nous avons 
vu dans cet article; vous vous en seriez doutes, non ? Pour la solution complete, il vous faudra patienter 
jusqu'au prochain GS Infos ... 

Nouvelles du front 



Trois nouveaux produits ont ete annonces recemment par Byte Works pour le programmeur sur GS (qui a 
dit qu'il n'y avait jamais rien de nouveau sur GS ?!). Ces 3 produits sont disponibles chez Resource 
Central, et sans doute aussi chez Byte Works, mais comme je n'ai regu aucun courrier de leur part 
pour me les proposer ... En voici un bref resume : 

• ORCA/Debugger : Ce permet permet d'aider a la mise au point des programmes C et Pascal. II remplace 
(plus ou moins) le debugger inclus dans Prizm. La difference principale est qu'il fonctionne en mode texte 
au lieu du mode bureau, ce qui permet de I'utiliser avec tous les types de programmes realisables sur GS. 
II fonctionne sur un principe similaire a GSBug avec lequel il est compatible, c'est a dire qu'il s'agit d'une 
init et qu'il est done resident en permanence. Sa difference principale avec GSBug est que ORCA/Debugger 
permet de faire la mise au point au niveau du code source, tandis que GSBug sert a la mise au point en 
langage machine. Mais on peut avoir les 2 en meme temps ! $39.95 chez Resource Central au lieu de $50, 
prix catalogue. Je ne peux pas vous en dire plus, car je ne I'ai pas encore regu ... 

• Toolbox Programming in Pascal : il s'agit d'un cours de programmation de la boite a outils du GS, 
utilisant le langage Pascal (ah bon ?). II s'inscrit dans la lignee des cours d'initiation au Pascal et au C que 
Byte Works a deja produit, et dont j'ai lu le plus grand bien. Comme ses predecesseurs, ce cours est tres 
axe sur la pratique, et les 400 pages du livre sont accompagnees de 4 disquettes d'exemples (soit plus de 3 
mega-octets !). 

Son seul inconvenient est qu'il est en anglais 8-} $75 chez Resource Central. 

• Programmers System 6 Reference : Byte Works a ecrit le tome IV du manuel de reference de la toolbox du 
GS. Ce livre contient done la description de toutes les nouveautes apportees par le systeme 6.0 aussi bien 
dans la bolte a outils que par GS/OS. II s'adresse done aux programmeurs. On peut penser que le delai de 
livraison du systeme 6.0 par Byte Works a ete occasionne par la volonte de realiser ce manuel afin de 
I'inclure dans le paquet, mais comme je n'ai toujours rien regu, je ne peux rien affirmer. En tout cas, si 
vous ne I'avez pas commande, je ne peux que vous conseiller d'acheter ce livre. $45 chez Resource Central. 



• 
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Dans cet article, nous allons mettre en oeuvre les operations sur les bits que nous avons vues dans le 
precedent numero de GS Infos pour developper une nouvelle structure de donnees correspondant au type 
abstrait "ensemble". 

A priori, vous devez penser que cet article ne s'adresse qu'aux programmeurs en C, puisque le langage 
Pascal dispose d'un type "set" predefini. II est vrai que ('implementation que je vous propose pour 
accompagner cet article, est ecrite en C. 

Toutefois, je pense que cet article peut aussi §tre interessant a lire pour les programmeurs Pascal, car il 
montre comment ga marche, et done peut aider a mieux comprendre quand et comment utiliser ce type, et ce 
d'autant plus que son existence en tant que type predefini masque son niveau d'abstraction bien plus eleve 
que celui des autres types, et par consequent le cout qu'implique son utilisation non faite en connaissance de 
cause. 

Mais avant d'aborder le sujet du jour, je voudrais d'abord apporter une legere correction au precedent 
article : j'ai en effet ecrit que les operateurs de manipulation de bits en ORCA/Pascal etaient identiques a 
ceux d'ORCA/C; e'est vrai a I'exception de I'operateur xor (ou exclusif) qui est " A " en C et "I" en 
ORCA/Pascal, puisque " A " est deja utilise par Pascal comme op§rateur d'indirection. 

A propos du ou exclusif, il est temps maintenant de donner la solution a I'exercice que je vous avais 
propose la derniere fois. Je vous en rappelle I'intitule : comment permuter 2 nombres "a" et "b" (e'est a 
dire qu'apres I'operation "a" doit contenir I'ancienne valeur de "b" et vice-versa), sans utiliser de 
variable intermediate. 

Vous devez maintenant vous douter que la solution va faire appel a I'operation ou exclusif (quel bel 
enchainement ;-). Allez, je vais cesser de vous faire languir; 
void tout de suite une macro rSpondant au probleme : 



#define swap(a,b) 



'= b, b A = a, a A = b 



Hum, je pense que cela necessite quelques explications complementaires. 

L'operateur ou exclusif a une propriete interessante que je n'ai pas expose dans le precedent article; 
j'avais juste dit qu'il avait une certaine propriete a propos de la macro toggle_bit(), mais j'ai 
involontairement omis de dire laquelle. 

Cette propriete est telle que si j'effectue 2 fois I'operation xor avec le meme operande, je retrouve ma 
valeur de depart (autrement dit, le ou exclusif d'un nombre avec lui-meme est egal a 0), ainsi a A b A b = a. 

Done, pour verifier que la macro precedente est bien la solution au probleme, il nous suffit de voir en 
detail son action : 

• Apres "a A = b", "a" vaut "a A b"; 

• Dans "b A = a", remplagons "a" par sa valeur : on obtient done "b = b A a A b", soit, 
d'apres la propriete precedente, "b = a"; 

• Effectuons la meme substitution dans "a A = b" : nous avons alors "a = a A b A a", ce 
qui, apres simplification, donne "a = b"; 

CQFD. A noter que Ton peut obtenir le meme resultat avec la soustraction a condition que les nombres 
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soient non signed; cependant le ou exclusif est en general plus rapide que la soustraction. Je vous laisse faire 
la demonstration vous-memes; le calcul est exactement le meme a I'operateur pres. 

Notez enfin, que contrairement a ce que je vous avais dit dans le precedent article, je n'ai pas pris de 
precautions particulieres pour entourer les parametres de la macro par des parentheses. La raison en est 
que ces parametres doivent etre obligatoirement des variables (ou plus precisement des valeurs-g) 
puisqu'on va leur affecter une nouvelle valeur. II n'est done pas utile d'ajouter des parentheses dans ce cas. 
J'ai aussi utilise I'operateur sequentiel "," pour sSparer les 3 expressions; j'aurai pu tout aussi bien 
separer les expressions par un ";". 



Concepts d'Ensemble 

Dans le numero 3 de cette sSrie, je vous avais presente la structure de donnees liste comme 6tant un 
ensemble ordonne d'elements. Le terme ensemble dans ce contexte n'6tait pas forc6ment bien choisi car il 
sous-entend un certain nombre de caracteristiques que nous allons voir dans cet article. 

Un "ensemble" (que Ton appelle "set" en anglais), en tant que tel, est un type de donnees abstrait 
permettant de representer une collection de donnees quelconques. Contrairement a la liste, il n'y a pas de 
relation d'ordre des objets dans un ensemble. De plus, chaque objet d'un ensemble est unique; on ne peut 
done pas avoir, par exemple, plusieurs occurences d'un meme nombre dans un ensemble d'entiers. 

Vous avez sans doute reconnu ici la definition d'un ensemble au sens mathSmatique du terme. II s'agit 
effectivement de representer sous forme informatique, les concepts sous-jacents aux ensembles. 

Du fait qu'il s'agit d'un concept bien defini, le nombre d'operations que Ton peut effectuer avec les 
ensembles sont Iimit6es, contrairement aux listes qui offrent une tres grande variete d'operations en 
fonction de la maniere dont on veut les utiliser. 

Un objet d'un ensemble est appeie un "membre" ou parfois un "element"; la propriete fondamentale d'un 
ensemble est la relation d'appartenance qui s'etablit entre les Elements et les ensembles : un objet 
appartient (e'est alors un membre) ou n'appartient pas a I'ensemble. 

A partir de cette propriete, on peut definir les operations de base que Ton peut appliquer sur un ensemble 
et ses membres : 

• Creation d'un ensemble, 

• Destruction d'un ensemble, 

• Ajout d'un membre a I'ensemble, 

• Suppression d'un membre de I'ensemble, 

• Test si un objet est membre de I'ensemble ou pas. 

On peut ensuite completer ces operations par des operations plus sophistiquees telles que : 

• Union de 2 ensembles, 

• Intersection de 2 ensembles, 

• Difference symetrique entre 2 ensembles, 

• Complement d'un ensemble, 

• Test si 2 ensembles sont identiques, disjoints ou ont une intersection non vide, 

• Test si un ensemble est un sous-ensemble d'un autre ensemble, 

• Test si I'ensemble est vide ou pas, 

Programmation Page 2 



Programmation - Numero 5 
• Comptage du nombre de membres d'un ensemble. 

Dans la suite de cet article, nous allons realiser ('implementation de ces operations, ainsi que de quelques 
autres qui sont secondaires, mais neanmoins fort utiles lorsqu'on doit manipuler des ensembles. 



Utilisation des ensembles 



Comme les autres structures de donnees que nous avons etudie jusqu'a present, les ensembles sont utilises 
tres souvent, notamment par les programmeurs Pascal, qui en disposent de base dans le langage, meme si 
c'est parfois a mauvais escient. 

^utilisation typique d'un ensemble correspond au cas ou Ton cherche a savoir si un objet est membre ou 
pas d'un ensemble, particulierement lorsque celui-ci est disparate. 

Cependant, pour pouvoir verifier I'appartenance d'un objet a un ensemble, il taut d'abord ajouter les 
membres a Pensemble en question, ce qui peut representer une operation couteuse. De la meme maniere, le 
test d'appartenance peut couter plus ou moins cher selon I'imptementation de Pensemble : heureusement en 
Pascal, comme dans Pimplementation que je vous propose ci-apres, le temps n6cessite" pour le test 
d'appartenance est constant, c'est a dire qu'il ne depend pas du nombre de membres de Pensemble. 

Done, lorsque Pensemble est continu, il est preferable d'utiliser une comparaison de Pelement avec les 
bornes plutdt que de tester I'appartenance de ce membre a Pensemble, car cette derniere operation est bien 
plus couteuse. 

Pour vous donner un exemple concret de cette difference : supposez que vous voulez savoir si une variable 
"c", que vous venez par exemple de lire au clavier, est une lettre ou pas; en effectuant un test 
d'appartenance, vous pouvez par exemple ecrire, en Pascal : 

IF C IN [ , A'.. , Z^•a , .. , z , ] THEN ... 

C'est vrai que cette solution a Pavantage d'etre elegante. Malheureusement, cette simplicity apparente 
masque le fait qu'il s'agit d'un type abstrait et que par consequent le 65C816 n'a aucune idee de ce que peut 
Stre un ensemble. Le compilateur doit done gen§rer pas mal de code d'une part pour construire cet ensemble, 
et d'autre part appeler une routine de la librairie Pascal pour verifier que le caractere appartient ou non a 
Pensemble. Si ce test est effectue" dans une boucle, comme c'est souvent le cas, cela peut couter assez cher. 

Dans ce cas, il est souhaitable, a mon avis, de tester si le caractere est dans I'intervalle voulu, ce qui peut 
s'6crire, toujours en Pascal : 

IF ( ( C >= 'A' ) AND ( C <= T ) ) OR ( ( C > = 'a' ) AND ( C <= 'z' ) ) THEN ... 

J'admets que cette ecriture est un peu plus lourde que la prec6dente; toutefois, dans ce cas precis, elle est 
nettement moins couteuse en terme de taille de code, et par consequent de temps d'execution. On peut 
cependant supprimer la moitie des tests en utilisant les proprietes du code ASCII : 

cc := c & $5F; (* conversion du caractere en majuscule *) 

IF ( CC >= 'A' ) AND ( CC <= T ) THEN ... 

La conversion prGcedente est incorrecte si le caractere n'est pas une lettre, mais comme elle ne peut pas 
non plus cr6er une lettre dans ce cas, elle est acceptable. 
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En revanche, lorsqu'on doit gerer des objets disparates et que Ton peut distinguer ni continuity ni ordre, 
I'ensemble s'avere etre la structure de donn6es id6ale pour representer ces objets. Un exemple pourrait 
etre la gestion de I'ensemble des etats dans un automate; en simplifiant, un automate est un programme 
permettant de reconnaitre si un mot fait partie d'un langage ou non; cette technique est notamment utilisee 
dans les compilateurs. J'essaierai de revenir sur ce sujet dans un prochain article, si cela vous interesse. 



Representation d'un ensemble 



On peut representer un ensemble de plusieurs manieres selon le type des objets que Ton veut utiliser. Si 
celui-ci est quelconque, le plus simple est d'utiliser une liste, telle que nous I'avons deja vu, sans se 
preoccuper toutefois de Pordre des membres, et en faisant attention a ne pas creer de doublons, c'est a dire 
que Pajout d'un element existant deja devra etre refuse. 

Cependant, trfcs souvent, les elements que Ton veut gerer sont de type scalaire : ce sont des entiers ou des 
caracteres. D'ailleurs, Pascal impose que les elements d'un ensemble soient scalaires. On pourra notamment 
utiliser des types enumer6s ou des caracteres qui sont convertis en entiers par le compilateur C. Cela 
signifie que Ton peut utiliser une methode plus economique pour representer un ensemble. 

Puisque je vous ai dit au tout debut de cet article que nous allions utiliser les techniques que nous avons 
etudiees dans le precedent GS Infos, la methode que nous allons employer consiste a associer un bit a chacun 
des elements de I'ensemble, qui sont eux-memes des nombres entiers (les caracteres entrant aussi dans 
cette categorie). Le test d'appartenance d'un element de I'ensemble consistera alors a verifier si le bit 
correspondant est a 1 (c'est un membre) ou a 0. 

Je vous renvoie a cet article pour toutes les operations de base sur les bits, et si cela n'est pas clair pour 
vous, je vous conseille de reetudier la partie concernant les chaines de bits, car nous allons utiliser les 
memes techniques. 

Voyons done tout de suite une structure permettant de representer un ensemble : 

typedef unsigned short SET_UNIT_TYPE; 

#define DEFJJNITS 4 

typedef struct _set { 

unsigned char nunits; /* Nombre d'unites (words) du tableau de bits */ 

unsigned char complement; /* vrai si I'ensemble a ete complemente */ 
unsigned short nbits; /* Nombre de bits dans le set */ 

SET_UN1T_TYPE *blts; /* Pointeur sur tableau de bits */ 

SET_UNIT_TYPE defbits[DEF_UNITS]; /* Tableau de bits par defaut *l 

} *set; 

Pour que les manipulations sur les bits soient les plus efficaces possibles, on a tout interet a les 
compacter dans le mot le plus grand possible pouvant etre manipuie par une instruction du 
microprocesseur, soit dans le cas du GS, un mot de 16 bits, d'ou la definition du type SET_UNIT_TYPE. 

L'ensemble est alors represente par un tableau initial de bits, dont j'ai fix6 la taille a 4 mots, soit 64 
bits, ce qui permet de representer 64 elements. Dans cette implementation, un ensemble est dynamique et sa 
taille sera ajustee en fonction des besoins, la limite etant de 4096 elements, ce qui est amplement suffisant 
(avec ORCA/Pascal, cette limite est de 2048 elements). La librairie que je vous propose ne fait aucun 
controle a ce sujet, ce sera done a vous de faire attention en I'utilisant. L'augmentation du tableau se fera 
par multiples de 4 mots, soit 64 elements, jusqu'a concurrence du numero de bit necessaire pour 
representer I'element que Ton souhaite ajouter. Ceci signifie que le tableau n'est pas necessairement plein 
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avant d'etre augments. Par exemple, si je souhaite ajouter le nombre 200 a mon ensemble, il me faudra 
agrandir mon tableau pour qu'il contienne 16 mots, soit 256 e"l6ments (mSme si tous les autres bits sont a 
0); le multiple de 4 mots pr6c§dent ne me permettait de stocker que 192 elements. 

Le champ "bits" de la structure pointe sur le tableau de bits, qui est soit le tableau initial prSalloue, soit 
un tableau alloue dynamiquement lorsqu'il y a plus de 64 elements. Ceci constitue une bonne illustration de 
Equivalence entre tableaux et pointeurs dont j'ai parle dans I'initiation au C de ce num§ro. 



Les champs "nunits" et "nbits" donnent la taille de Pensemble, respectivement en nombre de mots et en 
nombre de bits. On gere les 2 valeurs afin d'eviter d'avoir a les calculer a chaque fois que Ton en a besoin, 
ce qui permet de gagner du temps, alors que cela ne consomme qu'un ou deux octets supplementaires selon 
celui que Ton considere superflu. Je reviendrai un peu plus loin sur le champ "complement". 

Vous remarquerez que les differents champs sont bien alignes a un multiple de leur longueur, et que 
malgre" qu'ils aient I'air d'etre dans I'ordre oppose a mes recommandations, ils respectent bien la regie que 
j'ai expose" dans mon precedent article d'initiation au C (voir GS Infos 23 si vous ne vous en rappelez plus). 



<J 



Creation et destruction d'un ensemble 



Maintenant que nous sommes 6quipes d'une structure repr£sentant Pensemble, on peut 6crire une fonction 
I'initialisant : 

set create.set ( void ) 

{ 

set s; 

s = (set) malloc ( slzeof ( struct _set ) ); 
if ( s == NULL ) 

return ( NULL ); 
S->nunits = DEF_UNITS; 
S->nbits = DEF_BITS; 
s->comp!ement = 0; 
s->bits = s->defbits; 

memset ( s->defbits, 0, UNITS_TO_BYTES ( DEF_UNITS ) ); 
return ( s ); 

} 

Cette fonction est assez triviale : elle se contente d'allouer la structure (ce qui permet de g6rer plusieurs 
ensembles simultan6ment) et de remplir les differents champs qui la composent avec les valeurs initiales. 
Vous trouverez les constantes et les macros non d£crites ici dans le fichier "Set.h" accompagnant cet 
article; elles y sont abondamment commences. 

Apres la creation, il nous faut aussi une fonction d&ruisant un ensemble : 

void delete_set ( set s ) 

{ 

if ( s->bits != s->defbits ) 

free ( s->bits ); 

free ( s ); 

} /* delete_set () */ 
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Cette fonction est encore plus simple que la prec6dente puisqu'elle n'a qu'a Iib6rer la memoire occup6e 
par la structure representant 1'ensemble, ainsi que le tableau de bits si celui-ci n'est plus le tableau initial 
pr6alloue\ 



O 



Operations de base sur les membres 



Nous pouvons maintenant ecrire les fonctions realisant I'ajout, la suppression et le test d'appartenance 
d'un membre dans un ensemble : 

#deflne bit_op(s,b,op) ( (s)->bits[NUM_UNIT(b)] op ( 1 « NUM_BIT(b) ) ) 

#define add_member(s,b) ( ( (b) >= (s)->nbits ) ? extend_set ( s, b ) \ 

: bit_op ( s, b, |= ) ) 
#define remove_member(s,b) ( ( (b) >= (s)->nbits ) ? : bit_op ( s, b, &= ~ ) ) 
#define is_member(s,b) ( ( (b) >= (s)->nbits ) ? : bit_op ( s, b, & ) ) 

#define test_member(s,b) ( ( is_member ( s, b ) == ) == (s)->complement ) 
#define add_range(s,bl,b2) range_op ( s, bl, b2, ~0 ) 

#define remove_range(s,bl,b2) range_op ( s, bl, b2, ) 

En fait, ces operations sont implementSes sous forme de macros; attention done aux problemes d'effets de 
bord que j'ai deja expose. Vous avez d'ailleurs sans doute reconnu les memes macros que celles que nous 
avons developp6es dans le precedent article, avec tout de meme quelques petites differences : 

• Comme un ensemble peut etre agrandi dynamiquement, la macro "add_member" doit 
se demander si reiement a ajouter rentre dans I'ensemble existant ou si ce dernier 
doit etre agrandi, auquel cas il appelle la fonction "extend_set", que voici : 

#deflne EXTEND(bit) ( ( NUM_UNIT(bit) + DEFJJNITS ) & - ( DEF_UNITS ■ 1 ) ) 

static short extend ( set s, unsigned short size ) 

{ 

SET_UNIT_TYPE *bits; 

if ( s == NULL || size <= s->nunits ) 

return ( 1 ); 
bits = (SET_UNIT_TYPE *) mallOC ( UNITS_TO_BYTES ( Size ) ); 
if ( bits n NULL ) 

return ( ); 
memepy ( bits, s->bits, UNITS_TO_BYTES ( s->nunits ) ); 
memset ( bits + s->nunits, 0, UNITS_TO_BYTES ( size - s->nunits ) ); 
if ( s->bits != s->defbits ) 

free ( s->bits ); 
s->bits = bits; 
s->nunits = size; 

s->nbits = UNITS_TO_BITS ( size ); 
return ( 1 ); 
} /* extend () */ 
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short extend_set ( set s, unsigned short bit ) 

{ 

If ( ! extend ( s, EXTEND ( bit ) ) ) 
return ( ); 

return ( bit_op ( s, bit, |= ) ); 
} /* extend_set () */ 

Ca a Pair un peu compliqu6, mais en fait cela ne Test pas : la fonction "extend_set" utilise une fonction 
interne "extend" en lui donnant la nouvelle taille du tableau de bits calcuiee par la macro "EXTEND" selon 
les principes exposes plus haut (elle calcule le nouveau nombre de mots a I'aide d'une macros annexe non 
listee ici, en I'arrondissant au multiple de 4 superieur), puis elle positionne le bit correspondant a 
I'etement ajoute. 

La fonction "extend" est celle qui effectue le travail : elle alloue un nouveau tableau de bits, puis elle 
recopie I'ancien dans le nouveau et initialise les bits supplementaires a 0, et, enfin, libere la memoire 
occupee par I'ancien tableau si il avait d§ja ete agrandi. 

• Je vous propose 2 macros de test d'appartenance : la premiere "isjnember" verifie simplement si le 
bit correspondant a I'element recherche est bien a 1. La seconde "testjnember" appelle la premiere macro 
pour determiner I'appartenance puis inverse ou non le r§sultat en fonction de I'attribut complement. Ce 
champ indique si I'ensemble est normal ou s'il a ete complements, c'est a dire que le sens des bits est 
inverse : on est alors en logique negative; dans ce cas un bit a 1 indique que I'element correspondant 
n'appartient pas a I'ensemble, tandis qu'un bit est a dans le cas contraire. L'attribut complement est 
positionne par la macro : 

#define complement_set(s) ( (s)->complement A = 1 ) 

En fait, il s'agit d'une bascule : chaque appel a cette macro inverse l'attribut complement, et etablit done 
la le sens donne aux bits a 1 : en logique positive, un bit a 1 correspond a un membre de I'ensemble, tandis 
qu'en logique negative, un bit a 1 signifie que reiement correspondant n'appartient pas a I'ensemble. 

Toutefois, cette maniere de complementer un ensemble pose quelques probiemes avec les operations plus 
avancees sur les ensembles; c'est pourquoi, je les ai impiementees sans tenir compte de cet attribut. A la 
place, j'ai realise une autre maniere de complementer un ensemble en inversant physiquement tous les bits, 
en voici ('implementation : 

void invert_set ( set s ) 

{ 

SET_UNIT_TYPE *b, *e; 

for ( b = s->bits, e = b + s->nunits; b < e; b++ ) 
*b = ~ *b; 
} /* lnvert_set () 7 

Cette fonction a pour effet de supprimer tous les membres de I'ensemble et d'y ajouter tous les elements 
qui n'6taient pas membres auparavant. Elle n6cessite que I'ensemble ait ete agrandi a son maximum avant 
d'effectuer cette operation, par exemple en ajoutant le plus grand element puis en le supprimant. En effet, 
si on ne faisait pas cet agrandissement, les elements ajoutes apres I'inversion auraient un sens contraire a 
ceux ajoutes avant. De plus, comme le tableau de bits est toujours plus grand que le nombre de membres de 
I'ensemble, on aura, apres une inversion, des membres en trop; il faudra done ne pas en tenir compte. En 
revanche, cette methode a I'avantage de simplifier considerablement I'impiementation des operations 
globales sur les ensembles, telles que I'union ou I'intersection. Notez qu'en Pascal, ce probieme n'existe pas 
puisque Pascal n'offre pas la possibilite de complementer un ensemble. 

L'utilisateur de la librairie pourra choisir entre les 2 methodes selon ses besoins, c'est a dire en fonction 
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des operations qu'il compte effectuer. 

• Les macros "add_range" et "remove_range" sont a utiliser lorsqu'on veut ajouter ou supprimer une 
serie d'elements consecutifs. Ainsi, et par exemple, au lieu d'appeler 26 fois "add_member" pour ajouter 
chacune des lettres, vous pouvez appeler "add_range" en indiquant les bornes de I'intervalle, par exemple 
"add_range(s, , a\ , z , )'\ Ces macros font appel a la fonction "range_op", dont voici ('implementation : 

short range_op ( set s, unsigned short first, unsigned short last, 

SETJJNITJYPE vai ) 

{ 

unsigned short uf, ul, bf, bl, ml, m2; 

SETJJNITJYPE *b, *e; 

/* 

* On s'assure que les 2 elements sont bien dans I'ordre croissant avant de 

* faire quol que ce soit, sinon on les inverse. 

* On agrandit ensuite le tableau de bits si necessaire. 
H 

If ( first > last ) { 
uf ■ first; 
first = last; 
last = uf; 

} 
If ( ! extend ( s, EXTEND ( last ) ) ) 

return ( ); 

/* 

* On commence par remplir les elements du tableau de bits concernes dans 

* leur totalite, c'est a dire tous ceux strictement compris entre les 

* elements correspondant aux bits extremes de la serie. 

* II est possible que cette boucle ne fasse rien si les 2 extremes 

* correspondent a des elements voisins. 
*/ 

uf = NUMJJNIT ( first ); 

ul = NUMJJNIT ( last ); 

for ( b = s->bits + uf + 1, e = s->bits + ul; b < e; b++ ) 

*b = val; 
bf = NUM_BIT ( first ); 
bl = NUM_BIT ( last ); 

If ( uf == ul ) { 



* Cas ou tous les membres sont situes dans le meme element. 

* On cree un masque contenant les bits concernes soit a 1, soit a 

* selon que I'on doit ajouter ou supprimer les membres. 

* Principe : 

* - "~0" cree un masque avec tous les bits a 1; 

* - "» BITSJNJJNIT (1) ■ ( bl - bf + 1 )" met a les bits de poids 

* fort, le nb de bits etant la difference entre le nb de bits total 

* et le nb de bits a positionner; 

* - "« bf" replace les bits a 1 en position; 

* ■ si on doit effacer les membres, on inverse tous les bits (les bits 

* non affectes deviennent 1 et ceux a positionner 0) et on effectue 

Programmation Page 8 



- 



Programmation - Numero 5 

* un "&" avec les bits exitants; 

* • si on doit ajouter les membres, on doit seulement effectuer un "|" 

* avec les bits existants. CQFD. 
*/ 

ml = ~0 » ( UNITS_TO_BITS ( 1 ) - ( bl - bf + 1 ) ) « bf; 
if ( val == ) 
*e &= * ml; 
else 

*e |= ml; 

} else { 

r 

* Cas ou les 2 membres extremes ne sont pas dans le meme element. 

* On doit done intervenir sur chacun de ces elements separement. 
* Pour I'element correspondant au bit inferleur, on doit agir sur 

* les bits de celul specifie jusqu'au nombre de bits de I'element. 

* Pour I'element correspondant au bit superieur, on doit agir sur 

* les bits de a ceiui specifie. 

* Le principe est alors : 

* - "~0" : creation d'un masque avec tous les bits a 1; 

* ■ "« bf" met les bits Inferleurs jusqu'a "bf" a 0; 

* - "» ( UNITS_TO_BITS ( 1 ) - bl - 1 )" met les bits superieurs 
* apres "bl" a 0; 

* - si on doit effacer les membres, on inverse tous les bits (les 

* bits affectes deviennent done a 1 et les autres a 0) et on 

* effectue un "&" avec les bits existants pour chacun des 2 elements. 

* - si on doit ajouter les membres, on n'a plus qu'a faire un "\" 
* avec les bits existants pour chacun des 2 elements; 

H 

b = s->bits + uf; 
ml = -0 « bf; 
m2 = ~0 » ( UNITS_TO_BITS ( 1 ) - bl - 1 ); 
if ( val == ) { 
*b &= ~ ml; 
*e &= ~ m2; 
} else { 

*b |= ml; 
*e |= m2; 
} 

} 
return ( 1 ); 

} /* range_op () */ 

Plutot que de red&ailler son fonctionnement, j'ai prefere laisser les commentaires expliquant les 
diff6rents cas, et qui decrivent tout ce qu'il y a savoir sur cette fonction. Si cela ne vous semble pas assez 
clair, essayez de I'executer a la main en lui donnant un intervalle donne, par exemple les lettres de A a Z ou 
I'ensemble du code ASCII. 



Operations sur les ensembles 
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Le type abstrait ensemble d6finit un certain nombre d'operations globales : union, intersection, difference 
symetrique (I'ensemble r§sultat contient les membres qui sont dans chacun des 2 ensembles op§res mais 
pas dans I'autre). Ces differentes operations sont similaires entre elles, il est done souhaitable de n'avoir 
qu'une seule fonction les implementant toutes, et d'offrir un jeu de macros pour acceder a chacune d'entre 
elles. Void ce que cela donne : 

#define UNION 1 /* x est dans sen ou set2 */ 

#define INTERSECTION 2 /* x est dans setl et set2 */ 

#deflne DIFFERENCE 3 /* (x dans setl) et (x pas dans set2) */ 

#define ASSIGN 4 /* setl a set2 (affectation) */ 

#define set_union(dest,src) set_op ( UNION, dest, sre ) 

#define set_intersection(dest,src) set_op ( INTERSECTION, dest, sre ) 

#deflne set_dlfference(dest,src) set_op ( DIFFERENCE, dest, sre ) 

#define assign_set(dest,src) set_op ( ASSIGN, dest, sre ) 

void set_op ( short op, set dest, set sre ) 

{ 

SET_UNIT_TYPE *dest_bits, *src_bits; 

short size, extra; 

size = src->nunits; 
if ( (short) dest->nunits < size ) 

extend ( dest, size ); 
extra = (short) dest->nunits - size; 
dest.bits = dest->bits; 
src_bits = src->bits; 
switch ( op ) { 

case UNION : while ( -size >= ) 

*dest_bits++ |= *src_bits++; 
break; 
case INTERSECTION : while ( --size >= ) 

*dest_bits++ &= *src_bits++; 
while ( --extra >= ) 
*dest_bits++ = 0; 
break; 
case DIFFERENCE : while ( --size >= ) 

*dest_bits++ A = *src_bits++; 
break; 
case ASSIGN : while ( --size >= ) 

*dest_bits++ = *src_bits++; 
while ( --extra >= ) 
*dest_bits++ = 0; 
break; 

} 
} /* set_op () H 

Aux trois operations citees pr6c6demment, j'en ai ajoute une quatrieme : 
I'assignation d'un ensemble a un autre existant deja. La fonction "set_op" realise I'ensemble de ces 
operations. II est a noter que I'un des 2 ensembles (appele "dest") sera remplace par le resultat de 
reparation. Par consequent, cet ensemble doit avoir au moins la meme taille que I'autre (appele" "sre"), et 
il est agrandi si ce n'est pas le cas. 

Cette fonction travaille en 2 temps : elle opere d'abord sur les elements communs des ensembles, e'est a 
dire sur la taille du tableau de bits de "sre", puis si cela est n£cessaire sur le reste du tableau de bits de 
"dest", lorsqu'il est plus le plus grand des deux. 
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A priori, la realisation de cette fonction n'a pas I'air tres 6l6gante : une meilleure 6criture aurait consiste 
a effectuer la boucle while puis a faire le switch selon le type cooperation, plutot que d'avoir une boucle 
identique dans chacun des cas. La methode employee a I'avantage d'etre beaucoup plus efficace en termes de 
performances, puisqu'on n'a pas besoin de r££valuer le switch a chaque tour de boucle. 

Ceci 6tant dit, Implementation des differentes operations est assez triviale; on travaille sur un mot a la 
fois, et on applique les op£rateurs de manipulation de bits en fonction de I'operation demandee : "ou" pour 
I'union, "et" pour I'intersection, "ou exclusif" pour la difference symelrique et une simple copie pour 
I'affectation. Pour la partie supplemental de I'ensemble de destination, on part du principe que les 
elements de I'ensemble source sont tous a (puisqu'en fait ils n'existent pas); la deuxieme boucle (qui 
n'est pas ex£cut6e si "dest" n'est pas plus grand que "src") modifie done les bits de "dest" en consequence, 
lorsque e'est n£cessaire. Je vous laisse verifier par vous-memes que cela donne bien le resultat voulu. 

L'assignation d'un ensemble a un autre dans la fonction pr£c6dente presuppose que I'ensemble de 
destination existe d£ja. Ce n'est pas toujours le cas : on peut vouloir aussi faire une simple copie d'un 
ensemble tout en creant cette copie. Bien entendu, on peut utiliser les fonctions "create_set" et 
"assign_set", mais on peut faire beaucoup mieux; voici done la fonction "copy_set" qui effectue une copie 
tres efficace : 

set copy_set ( set s ) 

{ 

set s2; 

s2 = (set) malloc ( sizeof ( struct _set ) ); 
if ( s2 == NULL ) 

return ( NULL ); 
s2->nunits = s->nunits; 
s2->nbits = s->nbits; 
s2->complement = s->complement; 
if ( s->bits == s->defbits ) { 
s2->bits = s2->defbits; 

memepy ( s2->defbits, s->defbits, UNITS_TO_BYTES ( DEF_UNITS ) ); 
} else { 

s2->bits = (SET_UNIT_TYPE *) malloc ( UNITS_TO_BYTES ( s->nunits ) ); 
if ( s2->bits == NULL ) { 
free ( s2 ); 
return ( NULL ); 

} 

memepy ( s2->blts, s->blts, UNITS_TO_BYTES ( s->nunits ) ); 

} 
return ( s2 ); 

} /* copy_set () */ 

Le principe de cette fonction est d'allouer directement un tableau de bits de la taille necessaire, et de 
copierle tableau de bits original d'un seul coup, grace a la fonction "memepy" de la librairie C standard. 

Les macros "clear_set" et "fill set" permettent respectivement de cr£er un ensemble vide, et un 

ensemble plein. Elles utilisent toutes deux une autre fonction de la librairie C standard : "memset" pour 
positionner tous les bits du tableau a ou a 1. 

#define clear_set(s) memset ( (s)->blts, 0, UMTS_TO_BYTES ( (s)->nunits ) ) 
#deflne flll_set(s) memset ( (s)->bits, -0, UNITS_TO_BYTES ( (s)->nunits ) ) 

La macro "clear_set" ci-dessus ne change rien a la taille de I'ensemble, e'est a dire que celui-ci peut 
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contenir un trds grand tableau de bits qui seront tous a apres ('operation. On peut done avoir aussi envie 
de tronquer I'ensemble lorsqu'on le rend vide, ce qui est fait par la fonction "truncate_set" : 

void truncate_set ( set s ) 

{ 

if ( s->bits != s->defbits ) { 
free ( s->bits ); 

s->bits = s->defbits; 

} 
s->nunits = DEFJJNITS; 
s->nbits = DEF_BITS; 

memset ( s->defbits, 0, UNITS_TO_BYTES ( DEF_UNITS ) ); 
} /* truncate_set () */ 

Cette fonction realise I'Squivalent des 2 appels a "delete_set" puis "create_set" sauf qu'elle £vite la 
liberation puis la reallocation de la memoire utilised par la structure d£crivant I'ensemble; elle est done un 
peu plus efficace. En revanche, cette fonction n'est vraiment utile que pour ^initialiser un ensemble ayant 
eu un grand element; dans le cas contraire, il est preferable d'utiliser la macro "clear_set". 



Tests sur les ensembles 



Au dela du test d'appartenance d'un membre a un ensemble, il peut etre int§ressant de savoir si deux 
ensembles ont des elements en commun ou non, voire meme de verifier si ils sont identiques. Comme pour 
les operations globales sur les ensembles, ces tests sont similaires. II semble done naturel de proc6der de la 
meme maniere, e'est a dire d'6crire une fonction commune, et un jeu de macros correspondant a chacun des 
tests voulus : 

#define EQUIVALENT 1 /* seti et set2 sont equivalents (egaux) */ 

#define DISJOINT 2 /* seti et set2 sont disjoints */ 

#define INTERSECT 3 /* seti et set2 ont des elements communs */ 

#define set_equivalent(s1,s2) ( test_set ( s1, s2 ) = = EQUIVALENT ) 

#define set_disjoint(sl,s2) ( test_set ( si, s2 ) == DISJOINT ) 

#define set_intersect(sl,s2) ( test_set ( si, s2 ) == INTERSECT ) 

short test_set ( set si, set s2 ) 

{ 

short size, result; 

SET_UNIT_TYPE *b1, *b2; 
result = EQUIVALENT; 

size ■ s1->nunits > s2->nunits ? s1->nunits : s2->nunits; 
extend ( si, size ); 
extend ( s2, size ); 
b1 = s1->bits; 
b2 = s2->bits; 

for ( ; -size >= 0; b1++, b2++ ) 
If ( *b1 != *b2 ) { 
/* 

* Les 2 ensembles ne sont pas equivalents. Si on constate 
w * une Intersection, on peut retourner Immedlatemment ce resultat. 
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* En revanche, on doit continuer a parcourir les 2 sets pour 

* verifier si ils sont disjoints ou pas. 
*/ 

if ( *b1 & *b2 ) 

return ( INTERSECT ); 
else 

result = DISJOINT; 

} 
return ( result ); /* EQUIVALENT ou DISJOINT */ 

} /* test_set () */ 

Les 3 macros precedentes definissent les tests qu'il est possible d'effectuer (equivalence ou disjonction ou 
intersection non nulle de 2 ensembles). La fonction "test_set" compare chaque des mots constituant les 
tableaux de bits des 2 ensembles, apres les avoir eventuellement agrandis pour qu'ils aient tous les deux la 
meme taille. Je vous laisse etudier le commentaire ci-dessus pour de plus amples details sur le 
fonctionnement intime de cette routine. 

Le dernier test que Ton peut effectuer entre deux ensembles consiste a determiner si un ensemble est un 
sous-ensemble d'un autre, ce qui donne la fonction "subset" ci-dessous : 

short subset ( set s, set ss ) 

{ 

SET_UNIT_TYPE *b, *sb; 
short common, extra; 

if ( ss->nunits > s->nunits ) { 
common = s->nunits; 
extra = ss->nunits - common; 
} else { 

common = ss->nunits; 
extra = 0; 

} 

b = s->blts; 
sb = ss->bits; 
for ( ; -common >= 0; b++, sb++ ) 

if ( ( *sb & *b ) != *sb ) /* des membres du subset */ 

return ( ); /* ne sont pas dans le set */ 

while ( -extra >= ) 
If ( *sb++ ) 
return ( ); 
return ( 1 ); 
} /* subset () */ 

Cette fonction renvoie 1 si I'ensemble "ss" est un sous-ensemble de "s" et dans le cas contraire. A 
noter que I'ensemble vide est sous-ensemble de n'importe quel ensemble, y compris de I'ensemble vide 
lui-meme; cette fonction renverra done 1 dans ces differents cas. On verifie d'abord que les membres 
appartenant a la partie commune du sous-ensemble recherche appartiennent aussi tous au sur-ensemble, 
puis on s'assure que lorsque le sous-ensemble a un tableau de bits plus grand que le sur-ensemble, il n'y a 
aucun bit a 1 ; le contraire indiquerait que le sous-ensemble a des membres qui ne sont pas dans le 
sur-ensemble (les bits manquants dans ce dernier sont consideres comme etant des bits a 0). 

Vous noterez que toutes les fonctions de test ne sont pas prevues pour fonctionner avec un ensemble 
complements Si vous voulez aussi utiliser cette fonctionnalite, il vous faudra soit inverser physiquement 
les ensembles, soit modifier les fonctions en question pour tenir compte de I'attribut complement. 



W 
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Affichage et parcours d'un ensemble 






Le dernier jeu de fonctions permet de parcourir un ensemble afin d'obtenir tous les membres, par 
exemple pour afficher le contenu de I'ensemble. Ces fonctions ne sont compilees que si le symbole "ALL" est 
defini lors de la compilation (par exemple en utilisant la commande "compile Set.cc cc=(-dALL)"), car 
elles sont d'un usage moins frequent : 

short nextjnember ( set s, unsigned short 'context ) 

{ 

SET_UNIT_TYPE *b, m; 

/* 

* On saute tous les premiers elements du tableau ne comptant pas de membre, 

* en tenant compte du fait que le set peut etre compiemente. 
*/ 
if ( 'context == ) { 

m = s->complement ? ~0 : 0; 
for ( b = s->bits; *b == m && 'context < s->nbits; ++b ) 
'context += UNITS_TO_BITS ( 1 ); 

} 

/* 
■ Maintenant on cherche le premier prochain bit a 1, indiquant un membre 

* tout en tenant compte d'un set compiemente. 
7 
while ( (*context)++ < s->nbits ) 

If ( test_member ( s, 'context - 1 ) ) 

return ( 'context - 1 ); 

return ( -1 ); /* indique qu'il n'y a plus de membres */ 

} /* next_member () */ 

void scan_set ( set s, void (*func)( unsigned short member ) ) 

{ 

unsigned short context; 
short member; 

context = 0; 

member = nextjnember ( s, &context ); 
while ( member >= ) { 
(*func)( member ); 
member = nextjnember ( s, &context ); 

} 
} /* scan_set () */ 

La fonction "nextjnember" retourne chacun des membres un a un en utilisant un systeme de contexte que 
j'avais explique dans I'article sur les listes. La fonction "scan_set" utilise "scan_set" pour appeler une 
fonction passee en parametre avec chacun des membres obtenus. Encore une fois, il n'y a pas grand chose a 
ajouter aux commentaires contenus dans la definition de ces fonctions. 

La derniere fonction definie dans la librairie est la fonction "countjnembers"; elle calcule le nombre de 
membres d'un ensemble. Elle est utilisee par la macro. 

Elles ne sont aussi integrees dans la librairie que si le symbole "ALL" est defini (ce qui est le cas dans la 
version presente sur la disquette). La raison en est que ('implementation choisie utilise un tableau de 256 
octets, comme cela a ete explique dans le precedent article. Je ne la reliste done pas ici. 
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Voila qui termine la description de la librairie de manipulation des ensembles. II y aurait certes beaucoup 
d'autres choses a dire a son sujet, mais je pense que P6tude du source devrait r£pondre a toutes vos 
questions; les commentaires sont notamment tres details. Si toutefois, vous avez trouve" certaines 
explications un peu trop succintes et que vous d£sirez avoir plus d'informations, n'h£sitez pas a m'en faire 
part; je reviendrai alors dans un prochain article sur les points qui vous ont cause des problemes. De meme, 
la lecture du source de la librairie et du programme de demonstration vous indiqueront en detail comment 
utiliser les diffSrentes fonctions disponibles, au cas ou les explications pr6c6dentes seraient insuffisantes. 

Comme vous avez pu le constater en lisant cet article, j'ai utilise" le C a son maximum, notamment au 
niveau de certaines macros. Ceci semble d£plaire fortement a I'optimiseur d'ORCA/C, et le programme ne 
fonctionne plus si il est compile avec les optimisations; je n'ai pas d'ailleurs pas cherch£ ou £tait I'origine 
des problemes faute de temps. En revanche, il semble ne pas y avoir de probleme lorsque le code n'est pas 
optimist. N'h£sitez pas pour autant a me signaler tout bug que vous pourriez rencontrer. 



Sur la disquette GS Infos 

• "Set.h" : le fichier interface de la librairie d£crivant le type ensemble ainsi que 
les macros et les prototypes des fonctions permettant de le manipuler. 

• "Set.cc" : ('implementation des fonctions de manipulation des ensembles. 

• "Set. lib" : librairie de manipulation des ensembles. 

• "Test.Set.cc" : programme de test d'une partie des fonctions et des macros g6rant 
les ensembles; il permet de voir comment les utiliser, et n'est certes pas complet. 

• "Test.Set" : programme de test executable. 
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